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0001 



IDENTIFICATION 
AC-82UB-NC 

CVKAIBO DIS nOV/STR6 INST TST 
JANUARY 1982 
DIAGNOSTIC ENGINEERING 



COPYRIGHT (C) 1977, 1982 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 
ALL RIGHTS RESERVED 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND NAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS 
Of SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAIL- 
ABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP 
OF THE SOFTtMRE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 



DEC 
DECUS 



PDP 

OECTAPE 



UNIBUS 
VAX 



MASSBUS 
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55 

57 1.0 GENERAL INFORHATION 

58 

59 

61 1.1 ABSTRACT 

6^ THirDIAGNOSTK VERIFIES THE OPERATION OF THE DIBOL HOVE AND 

6-. STRIN'i INSTRUCTIONS OF THE LSI-11 CNOVC,HOVRC,CHPC.LOCC,SICP, 

65 SCANCSPANCJ. THE PROGRAM CHECKS THAT EACH INSTRUCTION IS INTERRUPTABLE 

66 USING THE CONSOLE SLU INTERFACE (SEE PARA 2.3.4) AND RUNS ALTERNATE 

67 PASSES WITH THE TRACE TRAP ENABLED, UNLESS INHIBITED BY THE SWITCH REGISTER ( 2. 

68 THE PROGRAM IS DESIGNED TO RUN ON AN LSI-11 WITH 4K OF MEMORY AND 

69 THE DIS MICROMS. IT CAN BE RUN UNDER XXDP^.APT, AND ACT MONITORS. 

70 THE SOFTWARE SWITCH REGISTER IS AT LOCATION 176. 

^2 TO FULLY TEST THE LSI-11 DIBOL INSTRUCTION SET MICROMS, THE 

73 FOLLOWING DIAGNOSTICS MUST BE RUN: 

75 CVKAI* CTHIS DIAGNOSTICS 

76 CVKAJ* DIS DECIMAL INSTRUCTION TEST 

77 CVKAB* LSI-11 EIS INSTRUCTION TEST 

79 WHERE IS THE LASTED REVISION 

60 
81 

83 1.2 SYSTEM REQUIREMENTS 

8A 

85 

87 1.2.1 EQUIPMENT 

If LSI-micDII-P) WITH A SERIAL LINE INTERFACE AND 

90 4K OF MEMORY 

91 

9! 1.2.2 STORAGE 

95 THe'pROGRAM USES MEMORY FROM 000000 TO 17310 

96 

97 

98 1.2.3 PRELIMINARY PROGRAMS 

100 irirASSUMEo'THAT'THE FOLLOWING DIAGNOSTICS HAVE BEEN RUN: 



101 

;g 

104 

US WHERE IS THE LASTED REVISION 

106 



LSi-11 BASIC CPU TEST CVKAA* 
LSI-11 TRAPS TEST CVKAD* 



•WIN. 
VKAIB 

loe 

109 

TiO 

111 

113 

lU 
115 
116 
117 
118 
119 
120 
121 

123 
1^4 
125 
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D 1 



SEQ 0003 



^5? 
133 

134 

135 

137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 



2.0 OPERATING INSTRUCTIONS 



2.1 LOADING PROCEDURES 

CAN BE LOADED UNDER XXDP^ OR 

USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES 

2.2 STARTING PROCEDURE 

lSo'tMe'swItCH REGISTER UITH THE DESIRED SETTING 
(SOFTWARE SWITCH REGISTER LOCATION - 176) 

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 
STARTING AT 200, THF PROGRAM CLEARS ALL PROGRAM PARAMETERS AND 
THEN PRINTS ITS NAINDEC IDENTIFICATION. "END PASS" IS PRINTED 
AT THE END OF EACH FULL PASS OF THE DIAGNCSTIC. 

2.3 OPERATING PROCEDURES 

2.3.1 OPERATIONAL SWITCH REGISTER 

LOCATION 176 IS USED FOR THE SOFTWARE SWITCH REGISTER AND 

THE FOLLOWING OPTIONS MAY BE SELECTED BY INSERTING A 1 IN THEIR 

RESPECTIVE BIT POSITIONS. 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 



- HALT ON ERROR 
. SCOPE LOOP 

' INHIBIT ERROR TYPEOUT 

- INHIBIT TRACE TRAP 

- UNUSED 

- UNUSED 

- LOOP ON ERROR 

- LOOP ON TEST IN SWR<05:00> 

- INHIBIT INTERRUPTABILITY TESTS 



NOTE: ALL TYPEOUTS CAN BE SUPPRESSED BY MAKING BITS OF BYTE SENVM 
HIGH. 
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152 

154 2.3.2 RUNNING UNDER APT 



155 
156 
157 



THE APT HAIL80X-E TABLE IS LOCATED AT LOCATION 566. 
USING THE CONSOLE INTERFACE AS THE INTERRUPTING DEVICE, 



15B USING THE CONSQLt INTERFACE AS 'KE INTERRUTIiNb DkVlLE, 

15§ THE INTERRUPTABILTIV TESTS WILL BE RUN ON ONLY THE FIRST PASS TO 

160 AVOID INTERFERENCE WITH THE APT INTERFACE. IF INTERRUPTABILITY 

161 TESTS ARE DESIRED ON ALL PASSES, ANOTHER SLU MUST BE SUPPLIED 

162 AND ITS RECEIVER STATUS REGJSTER ADDRESS t ITS INTERRUPT VECTOR MUST 

165 BE PLACED IN THE APT E-TABLE AT LOCATIONS "SBASE" ( 'tVECTV RESPECTIVELY. 
164 

166 2.3.3 RUN WITH ALTERNATE CONSOLE ADDRESS 

168 To'uSe'a console ADDRESS OTHER THAN 177560. THE OPERATOR 

169 MUST SUPPLY THE PROGRAM WITH THE CORRECT ADDRESSES BY INSERTING THEN 

170 AT THE LOCATIONS LABELED: 



171 



RCSR ADDRESS 
RBUF ADDRESS 
TCSR ADDRESS 
TBUF ADDRESS 



172 $TKS: 

17S STKB: 

174 STPS: 

175 STPB: 

176 

178 2.3.4 RUN INTERRUPT TESTS WITH ALTERNATE SLU 

180 To"uSe"a"sERIAL line interface address other THAN THE STANDARD 

181 CONSOLE ADDRESS (177560). THE OPERATOR MUST SUPPLY THE CORRECT ADDRESS 

182 AND INTERRUPT VECTOR BY INSERTING THEM IN THE LOCATIONS LABELED: 

184 SBASE: *RCSR ADDRESS* 

185 SVECTI: *RECE1VER INTERRUPT VECTOR* 
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186 

1M 2.4 EXECUTION TIMES 

189 

190 THE GIVEN EXECUTION TIMES TAKE INTO ACCOUNT THE RANDOM CHARACTERISTIC 

191 OF THE INTEJWUPT TESTS. THE EXECUTION TIME OF THE FIRST PASS IS APPROXIMATELY 

192 10 SECONDS: BUT SUBSEQUENT PASSES WITH INTERRUPT TESTS ENABLED COULD 

193 TAKE AS LONG AS 32 SECONDS. THEREFORE THE 32 SECOND EXECUTION TIME IS USED. 

194 THE PASS TIME WITHOUT INTERRUPTS IS APPROXIMATELY 2 SECONDS. 
195 

196 
197 
198 

199 3.0 ERROR REPORTING 

?0? IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR 

202 IS NOT SET, THE PC OF THE ERROR IS PRINTED. THE OPERATOR CAN FIND 

203 THE ERROR REPORT IN THE COMMENT FIELD OF THAT PC LOCATION IN 

204 THE PROGRAM LISTING. IF HALT ON ERROR (BITIS) OF THE SUR IS SET 

205 THE PROGRAM WILL HALT AFTER PRINTING THE ERROR PC AND ENTER THE 

206 MACHINE OOT. 
207 

:08 £.6. XXXXXX <— PC OF THE ERROR 

209 

210 XXXXXX <— PC+2 OF THE HALT ON ERROR LOCATION 

211 a <— ODT ENTERED 

212 

?13 WHERE "XXXXXX" IS AN OCTAL VALUE 

214 
215 
216 
217 
218 

219 4.0 SUBROUTINE ABSTRACTS 

221 
222 
223 

224 4.1 TRAPCATCHER 

226 A""~i"- HALT" SEQUENCE IS REPEATED FROM 0-776 TO CATCH ALL UNEXPECTED 

227 TRAPS. THUS ALL UNEXPECTED TRAPS OR INTERRUPTS WILL HALT 

228 AT THE VECTOR+2. EXCEPT TRAPS TO LOCATION 0,4, I 10 WHICH GO TO 

229 THEIR RESPECTIVE REPORTING ROUTINES "TZERO" ."TIMTRP", i "ILLTRP". 

230 THE OTHER EXCEPTION IS LOCATION 100 (RTC INTERRUPT VECTOR) 

231 WHICH CONTAINS A ".^2 - RTI" SEQUENCE (RETURNS FROM THE INTERRUPT). 
232 

233 

234 4.2 SCOPE 

236 THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS THE 

237 STARTING ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED ( UPDATES 

238 THE TEST NUMBER. IF A SCOPE LOOP IS REQUESTED IT WILL JUMP 

239 TO THE START OF THE SUBTEST AT WHICH THE SCOPE LOOP IS REQUESTED. 

240 
241 
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2t,2 «.3 ERROR 
243 

944 THIS ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT IS DESIRED. THE 

2A5 LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUMBER. THIS ROUTINE 

346 REPORTS ERRORS TO APT, TYPES ERRORS TO THE CONSOLE USING THE 

247 "STYPE" ft '7VP0CT" ROUTINES* AND HANDLES ERROR RESPONSES VIA SUR SET1INGS. 

248 

249 

?50 4.4 SPOWER 

III THIs'rOUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN AND 

253 RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCURS 'V>OWER" IS 

254 PRINTED AT THE CONSOLE AFTER POWER IS RESTORED AND THE PROGRAM 

255 IS RESTARTED AT TEST# 1. 

256 
257 
258 
259 

260 4.5 NPREP 

261 

262 THIS ROUTINE IS USED TO STORE A COPY OF THE INSTRUCTION TEST 

263 ARGUMENTS TO BE STORED IN RO— >R5. 

264 
265 

266 4.6 GENR 

268 THIS ROUTINE IS USED TO TRANSFER INSTRUCTION TEST ARGUMENTS 

269 TO THE GENERAL REGISTERS AND TO COPY THE STACK POINTER BEFORE 

270 TEST INSTRUCTION EXECUTION. 

2/1 
272 

273 4.7 XPSW 

275 THIS ROUTINE IS USED TO STORED THE EXPECTED PSW OF THE INSTRUCTION 

2^6 TEST AND TO SET THE T-SIT IN THE EXPECTED PSW ON PASSES USING 

277 THE TRACE TRAP. 

278 
279 

280 4.8 INTR 

281 — - 

282 THIS ROUTINE IS USED TO DETECT WHEN THE TEST INSTRUCTION HAS 

283 BEEN INTERRUPTED AND TO CONTINUE THE INTERRUPT STREAM UNTIL THE 

284 INSTRUCTION IS INTERRUPTED. 

285 

286 4.9 CICCC 

287 

288 THIS ROUTINE IS USED TO CHECK THE PSW'S CONTENT- AFTER THE 

289 OPERATION, WITH THE EXPECTED PSW'S CONTENT (EXPPSW). 

290 **NOTE: CONDITION CODES GENERATED IN THIS ROUTINE WILL BE USED 

291 IN THE MAIN PROGRAM. NO CODES SHOULD BE ADDED IN THIS 

292 ROUTINE THAT WOULD AFFECT THE CONDITIONS CODES. 
293 

294 

295 4.10 SKPINT 

296 

297 THIS ROUTINE IS USED TO CKECK IF WE SHOULD SKIP THE CURRENT TEST. 



H 1 

HAIH. HACYH 30(1046) 22-JAN-82 08:44 PAGE 8 _ 
VKAIB.PII 22-JAN-82 08:43 SEO 0007 

TOg LOC. -TEMP- IS USED AS A FLAG THAT PASSES BACK TO THE MAIN PROGRAM. 

299 TEW = 0 ==> CONTINUE UITH THE CURRENT TEST 

loo TEMP = 1 ==> GO TO DO THE NEXT TEST 

301 

ro2 

304 5.0 MISCELLANEOUS 

505 

508 5.1 STACK POINTER 

309 — 

310 STACK POINTER IS INITIALLY SET TO 500 (OCTAL). 
511 

:i3 5.2 PASS COUNT 

31 5 A'l6"en'L0CATI0N "fPASS" IS USED TO KEEP THE PASS COUNT. IT IS 

316 CLEARED BY STARTING AT 200. 

317 

319 5.3 TEST NUMBER 

321 rTrairLOCATION ••STSTNM" IS USED TO KEEP T5ACK OF THE SUBTEST 

322 NUMBER. THIS NUMBER IS ALSO PLACED IN THE APT E-TABLE AT "STESTN" 

323 WHEN UNDER APT. 

524 
525 

326 5.4 POWER FAIL 

m THe'dIaGNOSTJC can BE POWER FAILED WITH NO ERRORS. AFTER POWERING 

329 DOWN AND THEN UP AGAIN. THE PROGRAM WILL RESTAR FROM TEST# 1 _ 

330 (I.E., RESTARTS THE PASS THAT WAS INTERRUPTED) AFTER TYPING •T>OWER" 
^31 TO THE CONSOLE. HOWEVER IF THE PROGRAM IS STORED IN MOS MEMORY 

332 THAT CAN NOT HOLD DATA WITH POWER DOWN. THEN THE PROGRAM WILL NOT 

333 RECOVER FROM A POWER FAIL. 
534 

555 
556 

357 5.5 EVENT INTERRUPTS 

338 . 

559 THIS DIAGNOSTIC CAN BE RUN WITH THE REAL TIME CLOCK ACTIVE 

540 (INTERRUPT = 100). LOCATION 100 POINTS TO LOCATION 102 

341 WHICH CONTAINS AN "RTI" INSTRUCTION. THUS ON CLOCK INTERRUPTS. 

342 AN RTI IS EXECUTED TO HANDLED IT. 

343 X 
344 

545 

346 .ENABLE ABS 

^8 .LIST ME 

349 .NLIST MC.MD.CNO 

550 
351 
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554 




355 




356 




357 




358 




359 




360 




361 




36^ 




1 5*3 

564 




365 




366 
367 




368 




369 




370 




371 




372 




373 




374 




375 




376 




377 




176 




379 




380 




381 




382 




383 




384 




385 




386 




387 


001100 


388 




389 




390 




391 




392 


000011 


393 


000012 


394 


000015 


595 


000200 


596 


177776 


397 




598 


Mmu 


399 


M7772 


400 


)77570 


401 


177570 


402 




405 




404 


000000 


405 


000001 


406 


000002 


407 


000003 


408 


000004 


409 


000005 
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SEQ 0008 



.SSTTL BASIC DEFINITIONS 

;*INITIAL mRESS OF THE STACK POINTER 1100 *♦» 
STACK* 1100 

.EflUIV EMT^ERROR :;BASIC DEFINITION OF ERROR CALL 

.EQUIV IOT«SCOPE :;BASIC DEFINITION OF SCOPE CALL 



.••MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 



HT= 
LF= 
CRs 
CRLFs 
PS' 
.EQUIV 



11 
12 
15 
200 
177776 
PS^PSW 



STKLMT= 17^774 
PIRO= m772 
DSWRr 177570 
ODISP= 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.••GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4s 
R5= 



to 

XI 
X2 
X3 
X4 
X5 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
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BASIC DEFINITIONS 



SEO 0009 



410 
411 

^ii 

413 
414 
415 
416 
417 
418 
419 
420 
421 

til 

424 

425 

426 

427 

428 

429 

450 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

443 

446 

447 

448 

449 

450 

451 

452 

45^ 

454 

4S5 

456 

45/-' 

458 

^S9 

.60 

461 

4o2 

<.63 

^64 

1 



000006 
000007 
000006 
000007 



000000 
0000' 0 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001 COO 
000400 
000200 
000100 
000040 
000020 



R6= 
R7= 
SP= 
PC= 



X6 
17 
X6 
17 



GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



.-•PRIORITY LEVEL DEFINITIONS 



PR0= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6s 
PR7s 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



;*"SUITCH REGISTER" SWITCH DEFINITIONS 



SU15:: 

SU14S 
Stt13= 
SU12- 
SU11 = 
SU10= 
SU09= 
SU08= 
SW07r 
SW06= 

SW05:: 

SU04= 

SU03- 

SU02- 

SWOU 

SWOO- 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 



100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

SU09,SU9 
SU08,SU8 
SW07.SU7 
SW06«SU6 
SUOS.SWS 
SU04,SU4 
SU03,SU3 
SU02,SU2 

swonsui 

SUOO.SUO 



;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15= 100000 

BITUr 40000 

BIT13= 20000 

BIT12= 10000 

B1T11= 4000 

BITIO^ 2000 

B1T09S 1000 

BIT08= 400 

BIT07= 200 

BIT06= 100 

81T05= 40 

BIT04= 20 
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K 1 



SEQ 0010 



466 
467 
468 
469 

470 
471 

473 
474 
475 
476 
477 
478 
479 
480 
481 
48^ 
483 
484 
485 
486 
487 
488 
489 
',90 

A 9 5 

A95 

A 96 

497 

A 98 

A 99 

500 

501 

•jO? 

503 

504 

505 

506 

507 

508 

509 

510 

51 . 

512 

513 

514 

515 

516 

517 

518 

519 

520 

52T 



000174 
000176 



000000 
000002 
000004 



000010 
000004 
000002 
000001 



000004 
000010 
000014 
00001 4 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
000200 
000001 
000100 
000040 
171400 
000300 
000020 
000001 
000001 
y77777 
177560 
000060 
000000 



000000 



000174 
000000 
000000 

000000 
014144 
000340 
014134 



BIT03= 
8IT02= 
BIT01= 
BITOO- 
.EQUIV 
.EQUJV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 

:*BASIC 

ERRVEC=: 

RESVEC= 

TBITVEC= 

TRTVECs 

BPTVEC* 

10TVEC= 

PURVEC* 

EHTVEC= 

TRAPVEC= 

TKVEC= 

TPVEC= 

PIRQVEC 



10 
4 
2 
1 

BIT09,8IT9 
BIT08,BIT8 
BIT07,BIT7 
BIT06.Bir6 
BIT05.BIT5 
BIT04,BIT4 
BIT03.BIT3 
BIT02.BIT2 
BIT01 ,81 T1 
BITOO,BITO 



"CPU" TRAP VECTOR ADDRESSES 



4 
10 

U 
U 
20 
24 
30 
=34 
60 
64 

:240 

APTSIZE= 
APTENV= 001 
APTSP00L= 
APTCSUPe 
SSUR- 171400 
SSURMK- 300 
TBJTs 20 



TIME OUT AND OTHEf) ERRORS 
RESERVED AND ILLEiiAL INSTRUCTIONS 
•T' BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ••SCOPE** 
POUER FAIL 

EMULATOR TRAP (EMT) **ERROR** 
"TRAP" TRAP 
TTr KEYBOARD VECTOR 
TTY PRINTER VECTOR 
..PROGRAM INTERRUPT REQUEST VECTOR 

^5o 



100 
040 



STNs 
N= 
NXMs 



1 

^77777 



ASASE^ 177560 
AVECT1= 60 
.=0 

.SBTTL TRAP CATCHER 
.-0 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2.HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPRE6: .WORD 0 ; .-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 .-.SOFTWARE SWITCH REGISTER 



.=0 
TZERO 
340 
TIMTRP 



.-SET LOCATIONS 0,4,6 TO ERROR REPORT 
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W2 000006 

525 000010 

524 000012 

525 

526 

527 

528 

529 000100 

550 000102 

531 

532 

535 

554 000200 

555 

556 

557 

538 

539 

540 

541 

542 

545 000046 

544 

545 000052 

546 

547 

548 

549 

550 

551 

552 

553 

554 000024 

555 

556 000044 

557 

558 

559 

560 

561 

562 000400 
565 000400 

564 000402 

565 000404 

566 000406 

567 000410 

568 000412 
569 

570 



000340 
014164 
000340 



000100 
000102 
000002 



000200 

000167 000512 
000400 



000400 
000046 
014050 
000052 
000000 
000400 



000400 
000024 
000200 
000044 
000400 
000400 



000000 
000566 
000030 
000040 
000000 
000027 
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TRAP CATCHER 

340 

ILLTRP 

340 



L 1 



SEQ 0011 



.=100 

.WORD 102 
.WORD 2 



.=200 
J«P 



START 



.-HANDLE EVENT LINE INTERRUPTS 



.STARTING ADDRESS OF PROGRAM 



.=400 
.SBTTL ACT11 HOOKS 

.-HOOKS REQUIRED BY ACT11 

$SVPC=. .-SAVE PC 

.=46 

.-.-DSET L0C.A6 TO ADDRESS OF SENDAD IN .SEOP 

.=52 

.UORD 0 ;:2)SET L0C.52 TO ZERO 

.=$SVPC ;; RESTORE PC 

.SBTTL APT PARAMETER BLOCK 

• • *************************************************************** 

■SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

***************************************************************** 



.SX=. 
.=24 
200 
.=44 
SAPTHDR 
.=.$X 



.-SAVE CURRENT LOCATION 

.SET POWER FAIL TO POINT TO START OF PROGRAM 
.-FOR APT START UP 

.-POINT TO APT INDIRECT ADDRESS PNTR. 
.-POINT TO APT HEADER BLOCK 
.-RESET LOCATION COUNTER 



• **************************************************************** 

•SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.-INTERFACE SPEC. 



SAPTHD: 

SHIBTS: 

SMBADR: 

$TSTM: 

SPASTM: 

SUNITM: 



.WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD SMAIL ; .-ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 30 .-.-RUN TIM OF LONGEST TEST 

.WORD 40 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFV) 

.WORD .-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.WORD $ETEND-$HAIL/2 .-.-LENGTH MAILBOX-ETABLE (WORDS) 
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H 1 



S£Q 001? 



571 

"2 
57? 

574 
575 
576 

577 

000500 

579 000500 

580 000502 

581 000503 
58? 000504 
■>85 000506 
584 000510 
■,8S 00051? 
58/. 000514 
'>87 000515 
588 000516 
58V 000520 

590 0005?? 

591 000524 
59? 000526 
59? 000530 

594 000532 

595 000534 

596 000535 
"97 000536 

598 000540 

599 000542 
ftOO 000544 
601 000546 
60? 000550 

603 000552 

604 000554 

605 000555 

606 000556 

607 000557 

608 000560 

609 000562 

610 000563 

61 1 000564 
612 

615 
614 
615 
616 

617 000566 

618 000566 

619 000570 

620 000572 
6?1 000574 
622 000576 
S3 Q00600 
624 000602 
6?5 000604 
6?6 000606 



000500 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000000 
077 
015 
000012 



QOOOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.SSTTL COmON TAGS 



;*THIS TABLE CONTAINS VARIOUS COMNON STORAGE LOCATIONS 
;*USE9 IN THE PROGRAM. 



.=500 

SCHTAG: 

.WORD 0 

STSTNH: .BYTE 0 

SERFL6: .BYTE 0 

SICNT: .WORD 0 

SLPADR: .WORD 0 

SLPERR: .WORD 0 

SERTTL: .WORD 0 

SITENB: .BYTE 0 

SERHAX: .BYTE 1 

SERRPC: .WORD 0 

S6DADR: .WORD 0 

SBDADR: .WORD 0 

SGDDAT: .WORD 0 

SBDDAT: .WORD 0 

.WORD 0 

.WORD 0 

SAUTOB: .BYTE 0 

SINTAG: .BYTE 0 

.WORD 0 

SWR: .WORD . DSWR 

DISPLAY: .WORD DDISP 
$TKS; 177560 
$TKB; 177562 
STPS: 177564 
$TP8: 177566 

$NULL: .BYTE 0 

SFILLS: .BYTE 2 

SFILLC: .BYTE 12 

STPFLG: .BYTE 0 
SESCAPErO 

SOUES: .ASCII /?/ 

SCRLF; .ASCII <15> 

$LF: .ASCIZ <12> 

;;************************* 

.SBTTL APT NAILBOX-ETABLE 



;; START OF COMMON TAGS 

;: CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
;; CONTAINS SCOPE LOOP ADDRESS 

CONTAINS SCOPE RETURN FOR ERRORS 
;; CONTAINS TOTAL ERRORS DETECTED 
;; CONTAINS ITEM CONTROL BYTE 

CONTAINS MAX. ERRORS PER TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
;: CONTAINS ADDRESS OF 'GOOD' DATA 
.-.CONTAINS ADDRESS OF 'BAD' DATA 
;; CONTAINS 'GOOD' DATA 
:; CONTAINS 'BAD' DATA 
: .-RESERVED— NOT TO BE USED 

: .-AUTOMATIC NODE INDICATOR 
INTERRUPT MODE INDICATOR 

.-.•ADDRESS OF SWITCH REGISTER 
; .-ADDRESS OF DISPLAY REGISTER 
.-.-TTY K8D STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
.-:TTY PRINTER BUFFER REG. ADDRESS 
.-.•CONTAINS NULL CHARACTER FOR FILLS 
.-.•CONTAINS # OF FILLER CHARACTERS REQUIRED 
.-.INSERT FILL CHARS. AFTER A 'IINE FEED" 
.-.-"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
.-.-ESCAPE ON ERROR ADDRESS 
.-.-QUESTION NARK 
;; CARRIAGE RETURN 
.-.-LINE FEED 
************************************** 



•*************************************************************** 



.EVEN 

$MAIL: 

$MS6TY: 

SFATAL: 

STESTN: 

SPASS: 

SDEVCT: 

SUNIT: 

SMSGAD: 

SMSGLG: 

SE TABLE: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 



APT MAILBOX 

MESSAGE TYPE CODE 

FATAL ERROR NUMBER 

TEST NUMBER 

PASS COUNT 

DEVICE COUNT 

I/O UNIT NUMBER 

MESSAGE ADDRESS 

MESSAGE LENGTH 

APT ENVIRONMENT TABLE 
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APT NAIL80X>E TABLE 



U 1 



000606 
000607 
000610 
000612 
000614 



6!? 

638 000616 

639 000617 

6A0 

644 
64S 
646 
647 
648 
649 
650 
6^1 
652 
655 
654 
655 
656 
657 
658 
659 



000 
000 
000000 
000000 
000000 



000 
000 



000620 000000 



000622 
000623 
000624 
000626 
000627 
000630 
000632 
000633 
000634 
000636 
000640 
000642 
000644 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000060 
000000 
177560 



SENV: 

SENVH: 

SSyREG: 

SUSyR: 

fCPUQP: 

;* 

iNAMSI: 
MTyPI : 
;* 

• » 



.BYTE 
.BYTE 
.yORD 
.WORD 
.WORD 



.BYTE 
.BYTE 



$«TYP2: 

$nADR2: 

SMAMS3: 

$«TYP3: 

$nADR3: 

SMAnS4: 

$HTYP4: 

$nADR4: 

$VECT1: 

SVECT2: 

SBASE: 

$ETEND: 

.MEXIT 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 



AENV 

AENVn 

ASURE6 

AUSWR 

ACPUOP 



Amnsi 

A«TYP1 



iMADRI: .WORD AHAORI 



AnAns2 

AMTYP2 

ahadrI 

AMTYP3 
AnADR3 
ANAMSA 
A«TYP4 
AMADRA 
AVECT1 
AVECT2 
ABASE 



SEO 0013 



ENVIRONMENT BYTE 
ENVIROIMENT NODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPTIONS 
BITS 15-llsCPU TYPE , , 

1 1 /04=01 , 1 1 /05=02. 1 1 /20=03, 1 1 /40-04 , 1 1 /45=05 
11/70=06.PDQ=07.Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9«FL0ATIN6 POINT PROCESSOR 
BIT S^nORY MANAGEMENT 
;:HI6H ADDRESS.M.S. BYTE 
;;MEM. TVPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 MSEC CORE=001 
300 NSEC BIPOLAR-002 
500 NSEC MOSS003 
.-HIGH ADDRESS. BLK#1 _ .. 

MEM.LAST ADDR.-3 BYTES. THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS.M.S. JYTE 
MEM. TYPE. 8L^or2 
MEM.LAST ADDRESS .BLK#2 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE .BLK#3 
MEM.LAST ADDRESS. BLK#3 
HIGH ADDRESS.M.S.BYTE 
MEM. TYPE .BLK#4 
MEM.LAST ADDRESS .BLK#4 
INTERRUPT VECTOMI.BUS PRI0RITY#1 
INTERRUPT VECT0R#28US PRIORI TY#2 
BASF ADDRESS OF EQUIPMENT UNDER TEST 
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660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 

674 000644 
675 

676 000644 

677 000646 

678 000650 

679 000652 

680 000654 

681 000656 

682 000660 

683 000662 

684 000664 

685 000666 

686 000670 

687 000672 

688 000674 

689 000676 

690 000700 

691 000702 

692 000704 

693 000706 

694 000710 
695 

696 000712 

697 000714 
698 

699 

700 000716 
,'01 000722 
-^02 000726 
703 
704 

705 000732 
;^06 000736 

707 000740 

708 000744 

709 000746 
710 

711 000752 
m 000760 
713 000766 

7U 000774 

/'S 001 00? 



000000 
000000 
000000 
000000 
000000 
^77777 
177564 
177566 
000064 
000066 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

^77777 
000377 



005067 
005067 
005067 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 



B 2 
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1743 ERROR POINTER TABLE 

.S6TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
.LOCATIONflTEW. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
'•NOTEl: IF fITEMB IS 0 THE ONLY PERTINENT DATA IS (fERRPO. ^ 

•*N0rE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



SEQ 0014 



177646 
177640 
177640 



000500 

000540 

000500 

014542 
000340 
015140 
000340 
016236 



000020 
000022 
000030 
000032 
000034 



SERRTB: 

SRCLN: 

SkCAD: 

DSTLN: 

DSTAD: 

FILL: 

TABLE: 

TCSR: 

T8UF : 

TVECT: 

TPSW: 

PCI: 

CCODES: 

EXPPSW: 

SAVR6: 

BADR6: 

OLDPC: 

TEMP: 

TEMPI: 

TEMP2: 

ONES: 
0NE6YT: 



START: 



.S8TTL 



EM 

DH 
DT 
DF 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

177564 

177566 

64 

66 

0 

0 

0 

0 

0 

0 

0 

0 

0 

.WORD 
377 



^77777 



;: POINTS TO THE ERROR MESSAGE 
;; POINTS TO THE DATA HEADER 
; .-POINTS TO THE DATA 
; .-POINTS TO THE DATA FORMAT 



.-SOURCE LENGTH 

.-SOURCE ADDRESS 

.-DESTINATION LENGTH 

.-DESTINATION ADDRESS 

.-FILL CHARACTER 

.-TRANSLATION TABLE ADDRESS 

.-TCSR ADDRESS OF SLU USED FOR INTERRUPTS 

.-TBUF ADDRESS 

.-TRANSMIT INTERRUPT VECTOR 

AND PSW LOCATION 
.-ADDRESS OF TEST INSTRUCTION TO INTERRUPT 
.-CONDITION CODES AFTER TEST INSTRUCTION EXECUTION 
•EXPECTED CONDITION CODES 

;-STACK POINTER VALUE BEFORE TEST INSTRUCTION EXECUTION 
.-BAD STACK POINTER VALUE 

.-PC WHERE UNEXPECTED TRAP OR INTERRUPT OCCURRED 



-1 



CLR SFATAL ; CLEAR ERROR NO. 

CLR $MS6TYP .'CLEAR MESSAGE TYPE 

CLR STESTN ; CLEAR TEST NO. 

INITIALIZE THE COMMON TAGS ^^^^^ ^^^^ ,,rmrMr^ a»a 

.-CLEAR THE COMMON TAGS (SCMTAG) AREA 

.-FIRST LOCATION TO BE CLEARED 

.•CLEAR MEMORY LOCATION 



MOV f$CMTA6,R6 

CLR (R6)* 

CMP #SWR.R6 .'DONE? 

8NE .-6 

MOV #500. SP 



;L00P BACK IF NO 
.-SETUP THE STACK POINTER 
.-INITIALIZE A FEW VECTORS 
MOV #$SCOPE.a#IOTVEC ;IOT VECTOR FOR SCOPE ROUTINE 

JSi 8t?jl!})!SJvic--^?»& JeCTOR FOR TRAP CALLS 
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INITIALIZE THE COWON TAGS 



C 2 



716 001010 

717 Q01016 

718 001024 

719 001032 

720 001040 

721 001044 



724 001052 

725 001060 

726 001066 

727 001074 

728 001102 

729 001110 
750 Q01112 

731 001116 

732 001120 

733 001126 

734 001130 

735 001134 

736 001142 

737 001146 

738 001154 
739 

740 001162 

741 001170 
742 

743 001176 

744 001202 

745 001210 

746 001212 

747 001220 
7/.8 001220 

749 001226 

750 001230 
751 

752 001234 

753 001240 

754 001244 

755 001250 

756 001252 

757 001256 

758 001262 

759 001266 

760 001272 

761 001274 

762 001300 

763 001304 

764 001310 
'65 001312 

766 001314 

767 001316 

768 001320 

769 001322 

770 001326 
771 



012737 
012737 
012737 
016767 
005067 
112767 



012737 
012737 
012767 

Q05046 
012746 
000006 
012767 
000402 
062706 
016737 
005067 
012767 
012767 

012767 
012767 

005067 
132767 
001403 
012767 

026737 
001424 
104401 

013700 
062700 
010037 
005720 
010037 
013700 
062700 
010037 
005720 
010037 
012701 
012700 
110021 
105100 
110021 
105100 
105200 
020027 
003770 



000340 
014740 
000340 
012754 
177514 
000001 



014114 
000340 
000002 
000010 
001130 

001120 



000036 
000024 
000026 
012744 

177443 



000014 
000016 
013020 
177602 
000010 



000006 012766 IS: 



000010 
177544 
012754 
001146 
001154 

000176 
000174 

177372 
000200 

000610 

012624 

016276 

000642 
000004 
000660 

000662 
000636 
000004 
000664 

000666 
016310 
000001 



000200 



000010 

177332 
177326 

177350 
177344 



177377 
177320 
000042 



2S: 
3$: 



4$: 



ncv 

NOV 
flOV 

CLR 
N0V8 



nov 
nov 
mv 
nov 
nov 

CLR 

nov 

RTT 
MOV 
BR 
ADD 

nov 

CLR 

nov 
nov 

nov 
nov 

CLR 

BITS 

BEQ 

nov 
cnp 

BEQ 

TrPE. 



nov 

ADD 

nov 

TST 

nov 
nov 

ADD 

nov 

TST 

nOv 

PAT6EN: nOV 

nov 

IS: nOVB 

conB 
nova 
cons 

INCB 

cnp 

BLE 



#340.a#TRAPVEC*2; 
#SPURDN,a#PURVEC 
#340,a#PURVEC«2 : 
SENDCT,SE0PCT ; 
SESCAPE 
«1.SERnAX 



#SRTRN,a#TBITVEC 

#340,a#TBITVEC+2 

«RTI,SRTRN 

a#RESVEC.TEnP 

#2S,»rRESVEC 

-(SP) 

flS.-(SP) 

#RTT,SRrRN 
3S 

#10,SP 

TEnP,a#RESVEC 
ST8IT 
#.,SLPADR 
#, .SLPERR 

«SURE6,SUR 
«DISPRE6.DISPLAY 

SPASS 

#APrSIZE.SENVn 
4S 

«SSyREG.SVR 

SENDAD,a#42 

PAT6EN 

NAME 

a#SfiASE,R0 

#4«R0 

RO.ftTTCSR 

(RO)* 

RO.afTBUF 

a#SVECT1,R0 

#4,R0 

RO.afTVECT 

(RO)* 

RO^a^TPSU 

«6UF1,R1 

#KRO 

R0,(R1)* 

RO 

RC,(R1)* 

RO 

RO 

R0,#200 
IS 



SEQ 0015 

LEVEL 7 

.-POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-0F-PR06RAn COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 

INITIALIZE THE "I-BIV' TRAP VECTOR. THEN LOAD LOCATION 
THE 'tND-OF-PASS" (SEOP) ROUTINE. WITH A 'UTI" OR 'HJV 
.SET 'T' BIT VECTOR TO SRTRN 
.•LEVEL 7 

SET SRTRN TO A RTI 

SAVE ILLEGAL INSTRUCTION TRAP VECTOR 
TRY TO DO A RTT 
DUnnY PS 
AND PC 

'TRY THE RTT 

iRTT IS LEGAL— SET SRTRN TO A RTT 

RTT ILLEGAL— CLEAN OFF THE STACK 

iRESTORE ILLEGAL INSTRUCTION TRAP VECTOR 

I CLEAR 'T' BIT SWITCH 

; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

; SETUP THE ERROR LOOP ADDRESS 

;SETUP FOR A SOFTWARE SWITCH REGISTER. 

; POINT TO SOFTWARE SWR 



CLEAR PASS COUNT 
TEST USER SIZE UNDER APT 
YES.USE NON-APT SWITCH 
NO.USE APT SWITCH REGISTER 

UNDER ACT11 AUTO-ACCEPT? 

BR IF YES. I SKIP PROGRAM ID TVPEOUT 

SET UP ADDRESSES OF SLU TO USE FOR INTERRUPTABILITY TES 

GET ADDRESS OF THE SLU 

ADJUST TO TCSR ADDRESS 

STORE TCSR ADDRESS 

ADJUST TO TBUF ADDRESS 

STORE TBUF ADDRESS 

GET SLU INTERRUPT VECTOR 

ADJUST TO TRANSMIT INTERRUPT VECTOR 

STORE TRANSniT INTERRUPT VECTOR 

ADJUST TO TRANSniT INTERRUPT PSW 

STORE TRANSniT INTERRUPT PSW LOCATION 

GENERATE TEST PATTERN IN BUFi 

THE PATTERN lA A BINARY COUN^ ALTERNATED 

WITH ITS COnPLEnENT 

001.376.002.375.003,374 177,200,200.177 



INCREnENT PATTERN 
IS PATTERN FINISHED? 
BR IF NOT 
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772 
775 
774 
775 
776 
777 
778 
779 
780 
781 
782 



785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

805 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

HI 

823 
824 

827 



001330 106427 000200 
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INITIALIZE THE CQWKW TAGS 

BEGIN: MTPS #200 



0 2 



SEQ 0016 



;SET PRIORITY TO 7 



TEST 'WVC" INSTRUCTION WITH ZERO SOURCE LENGTH 
COMPLETION OF THIS TEST RESULTS IN 



001334 

8?vr 

001344 
001346 
001350 
001352 
001354 
001360 
001364 
001366 
001372 
001374 



000004 
004567 
000000 
177777 
000005 
016711 
000377 
004767 
004567 
000211 
004767 
000251 
000266 



001376 076030 



001400 
001404 
001406 



004767 
001401 
104001 



012706 



012716 
012760 

012612 



012764 



;*TEST 1 

i *JriLL"^ri77h' BrtEs wRntEN' throughout the destination 

•FIELD AND CONDITION CODES— >N,C=1 ( Z.V=0 

JSR**^ R5.PREP ; SET UP INSTRUCTION ARGlf«NTS 

.•SOURCE LENGTH 
.'SOURCE ADDRESS 
.•DESTINATION LENGTH 
.•DESTINATION ADDRESS 
.FILL CHARACTER 
.•CLEAR DESTINATION 
.•STORE EXPECTED PSU VALUE 



001410 

001410 023706 000676 

001414 001403 

001416 010637 000700 

001422 104002 



001424 

001424 005700 

001426 001401 

001430 104003 



001432 

001432 005701 

001434 001401 

001436 104004 

001 440 QQ5702 

001442 001401 

001444 104005 

001446 005703 



64$: 



65$: 

1$: 

66$: 
67$: 



JSR 
JSR 
.WORD 
JSR 

♦CLN.'CLC 
^SEZ'SEV 

novc 

JSR 
BEQ 
ERROR 



R5.PREP 
0 

NXM 

5 

BUF2^1 
377 

PC.CLDST 
R5,XPSW 
21 1 

PC.GENR 



PC.CKCC 
64$ 

1 



CHP 
BEQ 
NOV 
ERROR 



TST 
BEQ 
ERROR 



arSAVR6.SP 
65$ 

SP.a«8ADR6 



RO 
1$ 
3 



;SET UP GENERAL REGISTERS 

.•CLEAR CONDITION CODES NIC 

;SET CONDITION CODES Z 8 V 

.•EXECUTE 'WVE CHARACTER" INSTRUCTION 

.•CHECK RESULTS 

.•CHECK PSU. GENERATE CONDITION CODES 

;***************TEST 1 - ERROR 1»»*»»*»**«***** 
•PSU ERROR 

•EXPECTED PSU IS STORED AT 'tXPPSU" 
.ACTUAL PSU IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
;BR IF OK 

.•STORE BAD SP VALUE 

•*ft*********ftftft*TEST 1 - ERROR 2*************** 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
: ERRONEOUS VALUE IS AT 'BADR6" 



TST Rl 
BEQ 66$ 
ERROR 4 



TST 
BEQ 
ERROR 

TST 



R2 

67$ 

5 

R3 



.•CHECK RO FOR ZERO 
;BR. IF ZERO 

;.**;************TEST 1 - ERROR 3*******' 
;R0 SHOULD BE ZERO 

.CHECK STATE OF OTHER GENERAL REGISTERS 
.TEST Rl 
'BR IF ZERO 

;ft***t**********TEST 1 - ERROR 4**"****< 

:R1 SHOULD BE ZERO 
.•TEST R2 
'BR IF ZERO 

;***t**t*t******TEST 1 - ERROR 5*******< 
:R2 SHOULD BE ZERO 
.TEST R3 



c5JirB.pTf""?|2jJliiti olfa"*-" "'"ti '"^ }fst ■n,n" mrJum with zero source iencth 



SEQ 0017 



828 OOUSO 

829 0OU52 
830 

831 OOU54 

832 0OUS4 

833 00U60 

834 00U62 

835 

836 001A64 

837 00K70 

838 00H72 
839 

840 00U74 
841 

842 001474 

843 001 SOO 

844 001502 

845 001504 
846 

847 

848 001506 

849 001506 

850 001512 

851 001516 

852 001520 
853 

854 
855 

856 001522 

857 001524 

858 001526 

859 001530 

860 001532 
861 

862 

863 001534 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 001534 

876 001536 

877 001544 

878 001550 

879 001552 

880 001554 

881 001556 
862 001560 
883 



001401 
104006 



0P6704 
001401 
104007 

026705 
001401 
104010 



012700 
105720 
001401 
104011 



016701 
122067 
001401 
104012 



005301 
001372 
105720 
001401 
104013 



000004 
012767 
004567 

mi 

000000 
016711 
000377 



177174 
177166 

016710 



68S: 

69S: 
70$: 



177136 
177136 



71$: 
T1E12: 



BEQ 
ERROR 



BEO 
ERROR 

C«P 
BEO 
ERROR 



nov 

TSTB 

BEQ 

ERROR 



nov 

CMP8 

BEQ 

ERROR 



DEC 

BNE 

TSTB 

BEQ 

ERROR 



68$ 

6 



FILL.R4 
69$ 

7 

TABLE, RS 

70$ 

10 



«BUF2,R0 
(RO)^ 
71$ 
11 



DSTLN,R1 

(RO)*.FILL 

.♦4 

12 



R1 

T1E12 
(R0) + 
ENDT1 
13 



;BR. IF ZERO 

.••••*tt*ftftft**«*trEST 1 - ERROR 6« 
:R3 SHOULD BE ZERO 



; CHECK R4 UNCHANGED 
;BR IF OK 

•*ft******tt******TEST 1 - ERROR 7***********«t** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
: CHECK R5 UNCHANGED 
;BR IF OK 

;**ft*********ft**TEST 1 - ERROR lO**********^**** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE' 

; VERIFY DESTINATION CONTENTS 

.POINT RO TO DESTINATION LOWER BYTE BOUNDARY 

;TEST CONTENTS OF BOUNDARY 

:BR, IF STILL ZERO 

;**ft************TEST 1 - ERROR 11***»**«t*t**t*t 
; LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL ZERO 



EN0T1 : 



: STORE TRANSFER BYTE COUNT IN R1 
; CHECK CHARACTERS IN DESTINATION 
;BR IF OK 

;*ft*****ft*******rEST 1 - ERROR 12*************** 
; COMPARE ERROR IN DESTINATION 

;R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.•DECREMENT BYTE COUNT 

;BR. IF NOT FINISHED CHECKING 

.•TEST CONTENTS OF DEST. UPPER BOUNDARY 

:6R. IF STILL ZERO 

•***************TEST 1 - ERROR 13*************** 
•UPPER BOUNDARY OF DEST. CHANGED 
: SHOULD STILL EQUAL ZERO 



•TEST 2 



TEST 'WVC" INSTRUCTION WITH ZERO DESTINATION LENGTH 



•SUCCESSFUL COMPLETION OF THIS TEST RESULTS IN 
*N0 CHARACTERS TRANSFERED TO THE DESTINATION 
•AREA AND ALL CONDITION COOES CLEAR 



000712 
012500 



177102 



t§T2: 



SCOPE 

NOV 

JSR 



fONES.SRCAD 
R5.PREP 

1 

NXN 

0 

BUF2*1 
377 



;SET SOURCE ADDRESS 

;SET UP INSTRUCTION ARGiMENTS 

.SOURCE LENGTH 

.SOURCE ADDRESS 

.DESTINATION LENGTH 

.DESTINATION ADDRESS 

.•FILL CHARACTER 

.•CLEAR DESTINATION) 



MAIN. HACY11 30(1046) 
VKAIB.P11 22-JAW-82 08:43 



2-JVI-82 



08:44 PAGE 
T2 



19 



F 2 



TEST 'Move" INSTRUCTION WITH ZERO DESTIHATJON LENGTH 



SEQ 0018 



864 001562 

885 001566 

88t> 001570 

887 001572 

888 001576 

889 001600 

890 001604 
891 

892 001606 
895 

894 001610 

895 001614 

896 001616 
897 

898 
899 

900 001620 

901 001620 

902 001624 

903 001626 

904 001632 
90S 

906 
907 

908 001634 

909 001634 

910 001640 

911 001642 
912 

913 001644 

914 001644 

915 001646 

916 001650 
917 

918 001652 

919 001654 

920 001656 
921 

922 001660 

923 001662 

924 001664 
925 

926 001666 

927 001666 

928 001672 
9?9 001674 
930 

931 001676 

932 U11702 

933 001 r(K 



935 001706 
936 

01706 
51712 
01714 



939 



012700 
005020 
005020 
004567 
000200 
004767 
000277 

076030 

004767 
001401 
104001 



023706 
001403 
010637 
104002 



020067 
001401 
104003 



005701 
001401 
104004 

005702 
001401 
104005 

005703 
001401 
104006 



026704 
001401 
104007 

026705 
001401 
104010 



012700 
105720 
001401 



016710 

012546 
012400 



012554 



000676 
000700 



177004 



64S: 



176762 
176754 

016710 



65S: 

IS: 

66$: 
67S: 
68S: 

69S: 
70$: 



NOV 

CLR 

CLR 

JSR 

.WORD 

JSR 

sec 

MOVC 



CNP 
BEQ 
NOV 
ERROR 



CNP 
BEQ 
ERROR 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



CNP 
BEQ 
ERROR 

CNP 
BEQ 
ERROR 



NOV 

TSTB 

BEQ 



f8UF2,R0 

(RO)* 
(RO)* 
R5-XPSW 
20d 

PC.GENR 



JSR PC.CKCC 
BEQ 64$ 
ERROR 1 



afSAVR6,SP 
65$ 

SP,M8A0R6 

2 



RO.SRCLN 
1$ 

3 



Rl 

66$ 

4 

R2 
67$ 

5 

R3 

68$ 

6 



FILL,R4 
69$ 

7 

TABLE, R5 

70$ 

10 



f8UF2,R0 

(RO)^ 

71$ 



POINT RO TO L( R BYTE BOUNDARY 
CLEAR BOUNDARY i DEST. BYTES 
CLEAR UPPER BYTE BOUNDARY 
STORE EXPECTED PSU VALUE 

SET UP GENERAL REGISTERS 

SET ALL CONDITION COOES 

EXECUTE 'WVE CHARACTER" INSTRUCTION 

CHECK RESULTS 

CHECK PSW, GENERATE CONDITION CODES 



**********t*t**TEST 2 - ERROR 1»**t*t»»*.* 

PSU ERROR 

EXPECTED PSW IS STORED AT 'tXPPSW 
ACTUAL PSU IS STORED AT "CCODES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

**ft********t*ft*TEST 2 - ERROR 2**»*»****** 

STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
ERRONEOUS VALUE IS AT 'BA0R6" 



CHECK RO EQUAL TO SOURCE LENGTH 
BR, IF EQUAL 

***************TEST 2 ~ ERROR 3* 
RO SHOULD EQUAL SOURCE LENGTH 
CHECK OTHER GENERAL REGISTERS 
TEST Rl 
8R, IF ZERO 

***ft********t**TEST 2 - ERROR 4« 
Rl SHOULD BE ZERO 
TEST R2 
BR IF ZERO 

*********ft*****TEST 2 - ERROR 5* 
R2 SHOULD BE ZERO 
TEST R3 
BR, IF ZERO 

*****«*********TEST 2 - ERROR 6* 
R3 SHOULD BE ZERO 



CHECK R4 UNCHANGED 
BR IF OK 

********ft******TEST 2 ~ ERROR 7**t****ft******* 

R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

***ft***********TEST 2 - ERROR 10«»*»*"**»***«* 

R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 



VERIFY DESTINATION UNCHANGED 

POINT RO TO DESTINATION LOWER BYTE BOUNDARY 

TEST CONTENTS OF BOUNDARY 

BR, IF STILL ZERO 
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940 001716 

941 

942 

943 001720 

944 001 720 

945 001722 

946 001724 
947 

948 001726 

949 001 726 

950 001730 

951 001732 
952 

953 

954 001734 

955 

956 

957 

958 

959 

960 

961 

9o2 

963 

964 

965 

966 

967 

966 

969 

970 001734 

971 001736 

972 001742 

973 001744 

974 001746 

975 001750 

976 001752 

977 001 754 

978 001 760 

979 001764 

980 001766 

981 001772 
"82 

9t'.3 001774 
984 

985 001776 

986 002002 

987 002004 
988 

989 
990 

991 002C06 

992 002006 

993 002012 

994 002014 

995 002020 
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104011 



105720 
001401 
104012 



105720 
001401 
104013 



TEST "WOVC" INSTRUCTION WITH ZERO DESTINATION LENGTH 
ERROR 11 



SEQ 0019 



71$: 



2S: 



ENDT2: 



TSTB 

6EQ 

ERROR 



TSTB 

BEQ 

ERROR 



(R0>* 

2$ 

12 



<R0)* 
ENDT2 
13 



;***************TEST 2 - ERROR 11««««»« 
.-LOWER BOUNDARY Of DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 

.TEST CONTENTS OF DESTINATION BVTF 
:BR, IF STILL ZERO 

;**********«****TEST 2 - ERROR 12»"««' 
.DESTINATION WAS CHANGED 



.-TEST CONTENTS OF DEST. UPPER BOUNDARY 
:BR, IF STILL ZERO 

••••TEST 2 - ERROR 13«****« 

.'UPPER BOUNDARY OF DEST. CHANGED 
: SHOULD STILL EQUAL ZERO 



000004 

004567 012306 

000020 

016310 

000011 

016711 

000377 

004767 012316 
004567 012360 
000200 

004767 012212 
000277 

076030 

004767 012366 
001 401 
104001 



023706 000676 
001403 

010637 000700 
104002 



•TEST 3 TEST 'HOVC" INSTRUCTION WITH SRCAD .LT. DSTAD. SL .GT. DL 

.•••••••••••••*••••••*•**•*••••••••••••••••••••••••••••••••••••• 

•PROPER TERMINATION FOR THIS INSTRUCTION TEST 
^IS A TRUNCATED SOURCE STORED IN THE DESTINATION 
•(LEAST SIGNIFICANT BYTES NOT MOVED). RO EQUALS THE 
•NUMBER OF UTMOVED SOURCE BYTES (SRCLN-DSTLN) , 
*R1— >R3 EQUAL TO ZERO. AND ALL CONDITION 
•CODES CLEAR 



**•**•**•***•*•••*•**••** 

TST3: SCOPE 



64S: 



JSR 



JSR 
JSR 
.WORD 
JSR 

sec 

MOVC 

JSR 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



R5.PREP 

20 

BUF1 

11 

BUF2*1 
377 

PC.fLDST 

R5.XPSW 

206 

PC.GENR 



PC.CKCC 
64S 

1 



»rSAVR6.SP 
65$ 

SP.a«BADR6 

2 



.'SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
.SOURCE ADDRESS 
.•DESTINATION LENGTH 
.DESTINATION ADDRESS 
.•FILL CHARACTER 
.•CLEAR DESTINATION 
.•STORE EXPECTED PSW VALUE 

; SET UP GENERAL REGISTERS 

:SET ALL CONDITION CODES 

.•EXECUTE 'MOVE CHARACTER" INSTRUCTION 

.-CHECK RESULTS 

.•CHECK PSW, GENERATE CONDITION CODES 



;**tk****t*t*****TEST 3 - ERROR 
•PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW* 
.•ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
;BR IF OK 

.•STORE BAD SP VALUE . 
;**********ftftftft*TEST 3 - ERROR 2**« 
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.GT. OL 



S£Q 



996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



002022 
00|0|2 
002026 
002030 



002032 
036 
040 



002042 
002042 
002046 
002052 
002054 
002056 

002060 
002060 
002062 
002064 

002066 
002070 
002072 

002074 
002076 
002100 

002102 

002102 
002106 
002110 
002112 



002114 
002114 
1120 
1124 



0021 



026704 
001401 
104003 

026705 
001401 
104004 



016705 
166705 
020005 
001401 
104005 



005701 
001401 
104006 

005702 
001401 
104007 

005703 
001401 
104010 



012700 
105720 
001401 
104011 



016702 
016701 
122022 
001401 
104012 



[IS m 

136 105720 

140 001401 

h42 104013 



176626 
176620 



176576 
176576 



65S: 

66S: 
67S: 



2S: 

68$: 
69$: 
70$: 



016710 



176526 
176524 



71$: 
T3E12: 



BEQ 
ERROR 

CV 

E^R0R 



nov 

SUB 
CHP 
BEO 
ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



NOV 
TSTB 
BEQ 
ERROR 



NOV 

nov 

CNPB 

BEQ 

ERROR 



DEC 

BNE 

TSTB 

BEQ 

ERROR 



FILL.R4 

66$ 

3 

TABLE. R5 

67$ 

4 



SRCLN.RS 

DSTLN,R5 

R0.R5 

2$ 

5 



R1 
68$ 

6 

R2 
69$ 

7 

R3 

70$ 

10 



»8UF2,R0 
(R0)+ 
71$ 
11 



SRCAD.R2 

DSTLN.RI 

(R0)*,(R2)* 

.♦4 

12 



R1 

T3E12 
(RO)* 
ENDT3 
13 



.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED VALUE OF SP IS STORED AT ••SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 

.•CHECK R4 UNCHANGED 
;BR IF OK 

;***************TEST 3 - ER10R 3****"**"**"« 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
;BR IF OK 

• ***************TEST 3 - ERROR 4***********«*** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.•CHECK RO«SOURCE LENGTH MINUS 
.•DESTINATION LENGTH 



;8R IF OK 

•ft*ftft**tft*******TEST 3 ~ ERROR 5** 
;R0 NOT EQUAL TO (SRCLN-DSTLN) 
.•CHECK OTHER GENERAL REGISTERS 
.TEST R1 
:BR. IF ZERO 

;***ft**ft*ft*o*ft*TEST 3 - ERROR 6*« 
;R1 SHOULD BE ZERO 
;TEST R2 
;BR IF ZERO 

;**t*ft**********TEST 3 - ERROR 7»« 
;R2 SHOULD BE ZERO 
.TEST R3 
;BR, IF ZERO 

;ft****ft***ft**ftftftTEST 3 - ERROR 10* 
:R3 SHOULD BE ZERO 



.•VERIFY DESTINATION AREA 

.•POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
.•TEST CONTENTS OF BOUNDARY 
:BR« IF STILL ZERO 

;ft**************TEST 3 - ERROR 11*»****»»**** 

:LOWER BOUNDARY OF DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 



; POINT R2 TO SOURCE STRING 
.STORE TRANSFER BYTE COUNT IN R1 
.•CHECK CHARACTERS IN DESTINATION 
;BR IF OK 

;ft******»*******TEST 3 - ERROR 12**»**»***t»**** 

;COI>V>ARE ERROR IN DESTINATION 

;R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.DECREMENT BYTE COUNT 

:aR. IF NOT FINISHED CHECKING 

.•TEST CONTENTS OF OEST. UPPER BOUNDARY 

;BR, IF STILL ZERO 

;**;***»***o***rEST 3 - ERROR 13**"****»"»*** 
.•UPPER BOUNDARY OF DEST. CHANGED 
: SHOULD STILL EQUAL ZERO 
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1052 

1053 

1054 

1055 

1056 

.057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 



002144 



002144 
002146 
002152 
00|l54 
002156 
002160 
002162 
002164 
002170 
002174 
002176 
002202 
002204 



000004 
004567 
000374 
016310 
000376 
016711 
000377 
004767 
004567 
000211 
004767 
000251 
000266 



002206 076030 



002210 
002214 
002216 



004767 
001401 
104001 



002220 

002220 023706 

002224 001403 

002226 010637 

002232 104002 



002234 
002234 
002236 
002240 

002242 
002242 
002244 
002246 

002250 
002252 



005700 
001401 
104003 



005701 
001401 
104004 

003702 
001401 



012076 



012106 
012150 

012002 



012154 



000676 
000700 
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T3 TEST nOVC" INSTRUCTION WITH SftCAO .LT. OSTAO. SL .6T. DL 

ENDT3: 



;*TEST 4 TEST 'WVC" IMSTRUCTION WITH SRCAO .LT. DSTAO. OL .6T.SL 

jiwOPErTERSlNATJON OF THIS INSTRUCTION TEST IS . 
3 •A TRANSFER OF ALL BYTES PROM SOURCE TO DESTINATION 
;*ANO 'TILL" CHARACTERS IN THE LSB OF THE DESTINATION, 
}*R0— >R3 EQUAL TO ZERO. AND CONDITION CODES N,C-1 
:*AND Z,V-0 



SEQ 0021 



TST4! 



64S: 



65S: 



IS: 



66$: 



SCOPE 
JSR 



RS-PREP 
I7l 



JSR 
JSR 
.WORD 
JSR 

♦CLN.'CLC 
^SEVISEZ 

NOVC 

JSR 
BEO 
ERROR 



2+1 



PCCLOST 
R5.XPSU 

21 i 

PCGENR 



PC.CKCC 
64S 

1 



CMP 
BEO 
NOV 
ERROR 



a#SAVR6,SP 
65$ 

SP.»r8ADR6 

2 



TST RO 
BEO IS 
ERROR 3 



TST R1 
BEO 66$ 
ERROR 4 



;SET UP INSTRUCTION ARGUMENTS 
.'SOURCE LENGTH 
.•SOURCE ADDRESS 
.•DESTINATION LENGTH 
.•DESTINATION ADDRESS 
•FILL CHARACTER 

•CLEAR DESTINATION AREA t SET DEST. ADDRESS 
.•STORE EXPECTED PSW VALL. 

;SET UP GENERAL REGISTERS 

.•CLEAR CONDITION CODES NtC 

:SET CONDITION CODES V(Z 

.•EXECUTE 'MVE CHARACTER" INSTRUCTION 

.•CHECK RESULTS 

; CHECK PSU, GENERATE CONDITION CODES 



TST 
BEO 



67$ 



;t****ft*********TEST 4 - ERROR 1**»**«»»*»» 

'PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
.•ACTUAL PSW IS STORED AT 't CODES" 

.'VERIFY STACK POINTER IS RESTORED 
*8R IF OK 

•STORE BAD SP VALUE 

;**************ftTEST 4 - ERROR 2*********** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
;ERRON£OUS VALUE IS AT 'BaD.>6 ' 

.CHECK RO^ZERO 
;8R. IF ZERO 

•••••••*********TEST 4 - ERROR 3*^***«***** 

;R0 SHOULD BE ZERO 

.•CHECK OTHER GENERAL REGISTERS 

.TEST R1 

;8R. IF ZERO 

;***********ft***TEST 4 - ERROR 4******«**" 

;R1 SHOULD BE ZERO 
:TEST R2 
.BR IF ZERO 
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no« 

1109 
1110 
1 ni 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
113? 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
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J 2 



002254 


104005 






FRROR 


5 


002256 
002260 
002262 


005703 
001401 
104006 




67$: 


TST 
BEO 
ERROR 


R3 

68$ 

6 


002264 
002264 
002270 
002272 


026704 
001401 
104007 


176364 


68S: 


C«P 
BEQ 
ERROR 


FILL,R4 
69$ 

7 


002274 
002300 
002302 


026705 
001401 
104010 


176356 


69S: 


CHP 
BEQ 
ERROR 


TABLE, RS 

70$ 

10 


002304 






70S: 






002304 
002310 
002312 
002314 


012700 
105720 
001401 
104011 


016710 




nov 

TSTB 

BEQ 

ERROR 


«8UF2,R0 

(RO)* 

71$ 

11 


002316 
002316 
002322 
002326 
002330 
002332 


016702 
016701 
122022 
001401 
104012 


176324 
176316 


711: 
2$: 

T4E12: 


mv 
nov 
cnPB 

BEQ 
ERROR 


SRCAD,R2 

SRCLN,R1 

(R0)+,{R2)* 

.♦4 

12 



TEST 'tK>VC" INSTRUCTION WITH SRCAD .LT. OSTAO. OL .6T.SL 

;****«**t*******TEST 4 - ERROR 5« 
;R2 SHOULD BE ZERO 
.-TEST R3 
:8R. IF ZERO 

;********«******TEST 4 - ERROR 6* 
:R3 SHOULD BE ZERO 



SEQ 0022 



002334 
002336 
002340 
002344 
002350 
002352 
002356 
002360 



002362 
002364 
002366 
002370 
002372 



002374 



005301 
001373 
016705 
166705 
010501 
122067 
001401 
104013 



005301 
001372 
105720 
001401 
1040H 



176304 
176274 

176276 



DEC 
6NE 
NOV 
SUB 
MOV 

T4E13: CnPB 
BEQ 
ERROR 



DEC 

BNE 

TST8 

BEQ 

ERROR 



; CHECK R4 UNCHANGED 
;8R IF OK 

• ***************TEST 4 * ERROR 7******<>******** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
:BR IF OK 

;***t*ft*********TEST 4 - ERROR 10"**»»"*"**** . 

:R5 SHOULD STILL EQUAL CONTEND. . OCATION '7ABLE" 

.-VERIFY DESTINATION 

.•POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
:TEST CONTENTS OF BOUNDARY 
:BR. IF STILL ZERO 

;ft*ft*ft***t******TEST 4 - ERROR 11*t****t»»»»»»«t 

.•LOWER BOUNDARY OF DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 

.•POINT R2 TO SOURCE ADDRESS 
.-STORE TRANSFER BYTE COUNT IN R1 
.•CHECK CHARACTERS IN DESTINATION 
:BR IF OK 

;***************TEST 4 - ERROR 12*************** 
: COMPARE ERROR IN DESTINATION 
;R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

R1 .DECREMENT BYTE COUNT 

T4E12 ;8R. IF NOT FINISHED CHECKING 

DSTLN.R5 .-CALCUUTE THE NUMBER OF 'TILL" 

srcln.r5 :characters that should appear in dest. 
rs.ri ; store t^sfer byte count in r1 
(r6>^.fill .check characters in destination 

.♦4 ;BR IF OK 

13 ;ft*********t****TEST 4 - ERROR 13***«*»»»****«** 

.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHAMCTER 



R1 

T4E13 
(RO)* 
ENDT4 
U 



ENDT4: 



.-DECREMENT BYTE COUNT 

;BR. If NOT FINISHED CHECKING 

.-TE§T CONTENTS OF DEST. UPPER BOUNDARY 

;8R. IF STILL ZERO ^ 

;*«*ft***t**ft****TEST 4 - ERROR 14»***»t 

.-UPPER BOUNDARY OF DEST. CHANGED 

: SHOULD STILL EQUAL ZERO 



.-•TEST 5 TEST 'WOVC" INSTRUCTION WITH SRCAD=DSTAD. SL .LT. DL 

;*PROPER TERMINATION OF THIS INSTRUCTION TEST IS 
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1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

*178 

1179 

1180 

1181 

1182 

1183 

1184 

1135 

1186 

1187 

• 188 

1189 

1190 

1191 

1192 

1195 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 



08:44 PAGE 24 _ . 
T5 TEST *^VC' 



K 2 

INSTRUCTION WITH SRCAO=DSTAO, SL .LT. OL 



SEU OC. 



•NO CHARACTERS TRANSFERED TO THE DESTINATION. 
*R0— >R3 EQUAL TO ZERO, AND CONDITION CODES 
*N,V=1 AND C,2=0. 

•BOTH SOURCE AND DESTINATION ADDRESSES SHOULD 
*BE DON'T CARE VALUES, THEREFORE A PROBABLE 
•NON-EXISTANT MEMORY LOCATION WILL BE USED FOR 
•BOTH ADDRESSES 



002374 


000004 




002376 


004567 


011646 


002402 


000010 












00001 5 




002410 


016711 




002412 


000377 




002414 


004767 


011656 


002420 


004567 


011700 


002424 


000010 




002426 


016711 




002430 


004567 


011710 


002434 


000211 




002436 


004767 


011542 


002442 


000245 




002444 


000272 




002446 


076030 




002450 


004767 


011714 


002454 


001401 




002456 


104001 





TST5: 



002460 
002460 
002464 
002466 
002472 



002474 
002474 
002476 
002500 

002502 
002502 
002504 
002506 

002510 
002512 
002514 



023706 000676 
001403 

010637 000700 
104002 



005700 
001401 
104003 



005701 
001401 
104004 

005702 
001401 
104005 



64$: 



65$: 



1$: 



66$: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
.WORD 
JSR 
.WORD 
JSR 

♦CLZ.'CLC 
♦SEVISEN 

NOVC 



R5,PREP 
10 

BUF2+1 
15 

BUF2+1 
377 

PCCLDST 
R5,6ENSRC 
10 

BUF2'H 
R5.XPSW 
211 

PC.GENR 



JSR 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



PC.CKCC 
64$ 

1 



a#SAVR6,SP 
65$ 

SP.a#8ADR6 

2 



TST RO 
BEQ 1$ 
ERROR 3 



TST R1 

BEQ 66$ 

ERROR 4 

TST R2 

BEQ 67$ 

ERROR 5 



:SET UP INSTRUCTION ARGiftENTS 
.•SOURCE LENGTH 
.•SOURCE ADDRESS 
.•DESTINATION LENGTH 
.•DESTINATION ADDRESS 
.•FILL CHARACTER 

.•GENERATE A SOURCE STRING 



.•STORE EXPECTED PSU VALUE 

.•SET UP GENERAL REGISTERS 

.'CLEAR CONDITION CODES Z ft C 
;SET CONDITION CODES V ( N 

.-EXECUTE '910VE CHARACTER" INSTRUCTION 

.•CHECK RESULTS 

.•CHECK PSW. GENERATE CONDITION CODES 

;***************TEST 5 - ERROR !***•••••*••**** 
*PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
;ACTUAL PSW IS STORED AT "CCODCS" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;**ft************rEST 5 - ERROR 2*************** 

: STACK POINTER NOT RESTORED BY INSTRUCTION 
.'EXPECTED VALUE OF SP IS STORED AT '"SAVRb" 
.-ERRONEOUS VALUE IS AT 'BADR6" 

.'CHECK RO FOR ZERO 
;BR. IF EQUAL 

;*************ft*TEST 5 - ERROR 3**»t*»»»**»»*** 

;R0 SHOULD BE ZERO 

.•CHECK OTHER GENERAL REGISTERS 

.•TEST Rl 

;BR. IF ZERO 

;***************TEST 5 - ERROR 4*********»***»* 

:R1 SHOULD BE ZERO 
.TEST R2 
;BR IF ZERO 

;«t*****t***t****TEST 5 - ERROR 5**»*»*»»«**«*«« 

;R2 SHOULD BE ZERO 



I 
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L 2 

08:44 PAGE 25 

T5 TEST 'TWyC" INSTRUCTION WITH SRCAD=DSTAD, SL .LT. DL 



SEO 0024 



1220 
1221 
1222 
1225 
1224 

1226 

1227 

1228 

1229 

1250 

1251 

1252 

1235 

1254 

1255 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 



002516 
002520 
002522 

002524 
002524 
002530 
002552 

002554 
002540 
002542 

002544 
002544 
002550 
002552 
002554 



002556 
002556 
002562 
002566 
002570 
002572 



002574 
002576 
002600 
002604 
002610 
002612 
002616 
002620 



00262 
00262 
00262 
00263 
0026! 



002634 



005705 
001401 
104006 



026704 
001401 
104007 

026705 
001401 
104010 



012700 
105720 
001401 
104011 



012702 
016701 
122022 
001401 
104012 



005301 
J01373 
016702 
166702 
010201 
122067 
001401 
104013 



005301 
001372 
105720 
001401 
104014 



176124 
176116 

016710 



67$: 
68$: 

69$: 
70$: 



016711 
176056 



176044 
176034 

176036 



T5E13: 



ENDT5: 



TST 


R3 


BEQ 


68$ 


ERROR 


6 


CMP 


FILL,R4 


BEQ 


69$ 


ERROR 


7 


CMP 


TABLE, R 5 


BEQ 


70$ 


ERROR 


10 


NOV 




TSTB 


(R0)+ 


BEQ 


71$ 


ERROR 


11 



71$: 

NOV 
NOV 

T5E12: CNP8 
BEQ 
ERROR 



DEC 

BNE 

NOV 

SUB 

NOV 

CNP6 

BEQ 

ERROR 



DEC 

BNE 

TSTB 

BEQ 

ERROR 



*8UF2+1,R2 

SRCLN^RI 

(R0)+.(R2)+ 

.♦4 

12 



R1 

T5E12 

DSTLN,R2 

SRCLN.R2 

R2.R1 .-STORE 

(RO)^,FILL 

.♦4 

13 



R1 

T5E13 
(R0) + 
ENDT5 
14 



.-TEST R3 
:BR, IF ZERO 

;**********t*ftftftTEST 5 - ERROR 6* 
;R3 SHOULD BE ZERO 



: CHECK R4 UNCHANGED 
;BR IF OK 

;***************TEST 5 - ERROR 7**********»**** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.-CHECK R5 UNCHANGED 
;8R IF OK 

;ft***ft**********TEST 5 - ERROR 10*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

;POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
;TEST CONTENTS OF BOUNDARY 
;BR. IF STILL ZERO 

;**ft************TEST 5 - ERROR 11*»»»******»***« 
.-LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL ZERO 



.STORE TRANSFER BYTE COUNT IN R1 
.•CHECK CHARACTERS IN DESTINATION 
'BR IF OK 

;***************TEST 5 - ERROR 12*************** 
.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.-DECREMENT BYTE COUNT 

:BR. IF NOT FINISHED CHECKING 

.•CALCULATE FILL LENGTH 

TRANSFER BYTE COUNT IN R1 
: CHECK CHARACTERS IN DESTINATION 
*BR IF OK 

;***************TEST 5 - ERROR 13*************** 
.-COMPARE ERROR IN DESTINATION 

;R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.-DECRENENT BYTE COUNT 

;BR. IF NOT FINISHED CHECKING 

.TEST CONTENTS OF DEST. UPPER BOUNDARY 

:BR. IF STILL ZERO 

;***************TEST 5 - ERROR U*************** 
.UPPER BOUNDARY OF DEST. CHANGED 
; SHOULD STILL EQUAL ZERO 



**************************************************************** 

*TEST *^ TEST 'MVC" WITH SRCAD .LT. DSTAD, SRCLN .GT. DSTlN 

**************************************************************** 

*THIS TEST CHECKS FOR PROPER TRANSFER OF BYTES WHEN 

*THE DESTINATION AREA IS CONTAINED WITHIN THE SOURCE AREA. 

•THEREFORE. SRCAD<DSTAD AND SRCLN>DSTLN 
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^?77 






1 C r O 














1 C U 1 


00? 6 34 


000004 

WWW" 




002636 

WVCO JO 


00^567 

W"* 


y c vj 


00264? 


000020 




00264,4 


016710 




00?646 
vvco~o 


000007 

WWw » 




002650 


016713 




002652 


000377 


1 COO 


002654 


004567 

w~ * 


■1?89 


002660 


000020 


1290 


002662 


016710 


1P91 


002664 


004567 


1292 


002670 


000200 

W Wb w 


1293 


002672 


004767 


1294 






1295 






1296 


002676 


076030 


1297 






1298 


002700 


004767 


i299 


002704 


001401 


1300 


002706 


10400i 


1301 






1302 






1303 






130A 


002710 




1305 


002710 


023706 


1306 


002714 


001403 


1307 


002716 


010637 


1308 


002722 


104002 


1309 






1310 






1311 






1312 


002724 




1313 


002724 


026704 


1314 


002730 


001401 


1315 


002732 


104003 


1316 






1317 


002734 


026705 


1 518 


002740 


001401 


1319 


002742 


104004 


1320 






1321 


002744 




1322 


002744 


016705 


1323 


002750 


166705 


1324 


002754 


020005 


1325 


002756 


00U01 


1326 


002760 


104005 


1327 






1328 


002762 




T329 


002762 


005701 


1330 


002764 


001401 


1331 


002766 


104006 
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T6 TEST "HOVC" WITH SRCAD .LT. OSTAO. SRCLN .GT. DSTLN 

•THE RESULT IS A TRUNCATED (LSB OF SOURCE NOT MOVED) SOURCE 
•IN THE DESTINATION, RO EQUALS (SRCLN-DSTLN) , AND ALL CONDITION 
•CODES CLEAR 



SEC I 



TST6: 



64$: 



6SS: 

66$: 
67$: 



2$: 



SCOPE 
JSR 



JSR 

.WORD 

.WORD 

JSR 

.UORD 

JSR 



NOVC 

JSR 
BEQ 
ERROR 



CHP 
BEQ 
NOV 
ERROR 



CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



NOV 
SUB 
CMP 
BEQ 
ERROR 



TST 
BEQ 
ERROR 



R5.PREP 

20 , 
8Uf2 
7 

BUF2+3 
377 

RS.GENSRC 

20 

BUF2 
R5,XPSW 

206 

PCGENR 



PCCKCC 
64$ 

1 



a«SAVR6,SP 
65$ 

SP,i#8ADR6 



F1LL,R4 

66$ 

3 

TABLE «R5 

67$ 

4 



SRCLN. R5 

DSTLN.RS 

R0,R5 

2$ 

5 



R1 

68$ 

6 



SET UP INSTRUCTION ARGUMENTS 
SOURCE LENGTH 
SOURCE ADDRESS 
DESTINATION LENGTH 
DESTINATION ADDRESS 
FILL CHARACTER 
GENERATE SOURCE STRING 



STORE EXPECTED PSU VALUE 

SET UP GENERAL REGISTERS 

SET ALL CONDITION CODES 

EXECUTE 'TfOVE CHARACTER" INSTRUCTION 

CHECK RESULTS 

CHECK PSU, GENERATE CONDITION CODES 



*****ft******ft**TEST 6 - ERROR It************** 

PSU ERROR 

EXPECTED PSW IS STORED AT 'fXPPSW" 
ACTUAL PSU IS STORED AT "CCODES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

*****ft»****ftftft*TEST 6 - ERROR 2*************** 

STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT '^VR6" 
ERRONEOUS VALUE IS AT 'BADR6" 

CHECK R4 UNCHANGED 
BR IF OK 

*t*************TEST 6 - ERROR 3*************** 

R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

***************TEST 6 ~ ERROR 4*************** 

R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

CHECK RO=SOURCE LENGTH MINUS 
DESTINATION LENGTH 



;*t*************TEST 6 - ERROR 5* 
;R0 NOT EQUAL TO (SRCLN-DSTLN) 

;TEST R1 
;BR, IF ZERO 

;*ft*************TEST 6 - ERROR 6* 
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T6 TEST "Wove" WITH SRCAD .LT. DSTAD, SRCLN .GT. OSTLN 



SEQ 0026 



1332 

1333 

1354 

1355 

1336 

1337 

1338 

1339 

1540 

1541 

1542 

1545 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1351 

1552 

1555 

1554 

1555 

1556 

1557 

1358 

1359 

1360 

1361 

1362 

1363 

136A 

1365 

1566 

1367 

1368 

1369 

1370 

1371 

1372 

1375 

1374 

1375 

1376 

1377 

1378 

J 379 

1380 



002770 
002772 
002774 

002776 
003000 
005002 

003004 

003004 
003010 
003014 
005016 
005020 



005022 
005026 
005030 
003054 
0030A0 
003'^'. 2 
003t ,4 



003046 
003050 
003052 
005054 
003060 
00306A 
003066 
003070 



003072 
003074 



005702 
001401 
104007 

005703 
001401 
104010 



012700 
012701 
122021 
001401 
104011 



020167 
002772 
012702 
016703 
y2222y 
001401 
104012 



005200 
005303 
001372 
016703 
066703 
122021 
00K01 
104013 



020103 
002773 



016310 
0.3710 



175624 

016310 
175610 



175566 
175560 



68S: 
69S: 
70S: 
3S: 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



MOV 
MOV 

cMPe 

BEQ 
ERROR 



R2 

69S 

7 

R3 

70$ 

10 



#8UF1,R0 

*8UF2,R1 

(R0)+,(R1)+ 

4S 

11 



4S: 


CMP 


R1 ,DSTAD 




BLT 


3$ 




MOV 


«8UF1,R2 




MOV 


DSTLN,R3 


5S: 


CMP8 


(R2)+.(R1)* 




BEQ 


6$ 




ERROR 


12 . 


6S: 


INC 


RO 




DEC 


R3 




BNE 


5$ 




MOV 


SRCAD, R3 




ADO 


SRCLN,R3 


7$: 


CMP8 


(R0)+,(R1)> 




BEQ 


10$ 




ERROR 


13 


10$: 


CMP 


R1,R3 




BLT 


7$ 



:R1 SHOULD BE ZERO 
;TEST R2 
;8R IF ZERO 
;***************TEST 
;R2 SHOULD BE ZERO 
.TEST R3 
;BR, IF ZERO 
;ftt****t********TEST 
;R3 SHOULD BE ZERO 



6 - ERROR 7« 



6 - ERROR 10< 



: VERIFY DESTINATION t NON-OVERLAP SOURCE 
: CHECK BEGINNING OF OLD SOURCE AREAS 



;*************t*TEST 6 - ERROR 11»*»**«t*»*»»< 

;NON-OVERLAP SOURCE AREA CHANGED 

;R0 CONTAINS PC-^1 OF CHANGED SOURCE CHARACTER 

.•REACHED START OF DESTINATION? 

*EM IF NO 

•CHiCK DESTINATION AREA 



;***************TEST 6 - ERROR 12*************** 

.-COMPARE ERROR IN DESTINATION 

;R1 CONTAINS PC^I OF BAD DESTINATION CHARACTER 

.•UPDATE POINTER TO OLD SOURCE 

.•DECREMENT DEST. BYTE COUNT 

;BR. IF NOT FINISHED 

.•CHECK LOWER PORTION OF NON-OVERLAP SOURCE 



;************ft**TEST 6 - ERROR 13»»*********«* 

;NON-OVERLAP SOURCE AREA CHANGED 

:R0 CONTAINS PC^I OF CHANGED SOURCE CHARACTER 

.•FINISHED CHECK? 

;8R. IF NO 



;*TEST 7 TEST 'WVC* WITH DSTAD .GT. SRCAD. SRCLN .LT. DSTLN 

• • *************************************************************** 

>*THIS TEST CHECKS FOR PROPER TRANSFER OF BYTES WHEN 

;*THE SOURCE AREA IS CONTAINED WITHIN THE DESTINATION AREA. 

;*THEREFORE. SRCAD>DSTAD AND DSTLN>SRCLN. 

;*THE RESULf IS A FULL TRANSFER OF THE SOURCE TO THE 

;*D£STINAT10N AND 'TILL" CHARACTERS IN THE LS8 OF THE 

r*DESTINATION; RO— >R3 EQUAL ZERO. AND CONDITION 

;*CODES N.C*1 AND Z.V-0 



00000* 
004567 
000007 



011144 



«T7: 



SCOPE 
JSR 



R5.PREP 



;SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
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17 TEST 



B 3 

'myc yiTH ostad .6T. srcad. srcln .lt. ostln 



SEO 0027 



U88 
1389 
1390 
1391 
1392 
1393 
1394 
139S 
1396 
H97 
1598 
1399 
KOO 
KOI 
1402 
K03 
404 
1405 
^^06 
K07 
1408 
1409 
^'.10 
1411 
K12 
1413 
1414 
'415 
1416 
HV 
1418 
14t9 
1420 
1421 
1422 
U23 
1424 
1425 
1426 
1427 
1428 
K29 
1430 
1431 
1432 
1433 
1434 
1435 
1456 
1437 
1438 
1439 
1440 
1441 
1442 
U43 



003106 
003110 
003112 
003114 
003116 
003122 
003126 
003130 
003132 
003136 
003140 
003144 
003146 



016713 
000017 
016711 
000377 
004767 
004567 
000007 
016713 
004567 
000211 
004767 
000251 
000266 



011154 
011176 



011206 
011040 



JSR 
JSR 
.WORD 
.WORD 
JSR 
.WORD 
JSR 

♦CLN.'CLC 
♦SEV'SEZ 



8UF2+3 
17 

8UF2+1 
377 

PCCLDST 
R5,6ENSRC 
7 

BUF2«3 
RS.XPSU 

21 1 

PC«GENR 



003150 


076030 






mvc 




003152 
003156 
003160 


004767 
001401 
104001 


011212 




JSR 
BEQ 

CRROR 


PCCKCC 
64$ 

1 


003162 
003162 
003166 
003170 
0031 74 


023706 
001403 
010637 

1 A / A A T 

104002 


000676 
000700 


o4»: 


CHP 
BEQ 

nov 

CDDAD 

CnROR 


arsAVR6«sp 

65$ 

SP«a«BADR6 

c 


003176 
0051 /6 
003200 
003202 


001401 
104003 




65$: 


TCT 

BEQ 
ERROR 


on 

1$ 
3 


003204 
003204 
003206 
003210 


005701 
001401 
104004 




IS: 


TST 
BEQ 
ERROR 


R1 
66$ 

4 


003212 
003214 
003216 


005702 
001401 
104005 




66$: 


TST 
BEQ 
ERROR 


R2 

67$ 

5 


003220 
003222 
003224 


005703 
001401 
104006 




67$: 


TST 
BEQ 
ERROR 


R3 

68$ 

6 


003226 
003226 
003232 
003234 


026704 
001401 
104007 


175422 


68$: 


CMP 
BEQ 
ERROR 


FILL,R« 

69$ 

7 


003236 
005242 
003244 


026705 
001401 
104010 


175414 


69$: 


CMP 
BEQ 
ERROR 


TABLE, RS 

70$ 

10 



.•SOURCE ADDRESS 

;DESTIMATION LENGTH 

.■DESTINATION ADDRESS 

.•FILL CHARACTER 

.•CLEAR DESTINATION 

; GENERATE A SOURCE STRING 



.•STORE EXPECTED PSU VALUE 

;SET UP GENERAL REGISTERS 

.•CLEAR CONDITION CODES N K C 
.-SET CONDITION CODES V & 2 

.•EXECUTE 'ftOVE CHARACTER" INSTRUCTION 

; CHECK RESULTS 

.'CHECK PSU, GENERATE CONDITION CODES 



;«r»*************TEST 7 - ERROR 1****»*******tt« 
•PSU ERROR 

•EXPECTED PSW IS STORED AT 'CXPPSU" 
.•ACTUAL PSU IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;*************«*TEST 7 - ERROR 2*************** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 



.•CHECK RO FOR ZERO 
;BR. IF ZERO 

;***************TEST 7 - ERROR 3* 
:R0 SHOULD BE ZERO 



;TEST R1 

;BR. IF ZERO 

;***************TEST 

;R1 SHOULD BE ZERO 

;TEST R2 

;BR IF ZERO 

; ***ft***********TEST 

:R2 SHOULD BE ZERO 

.TEST R3 

;BR. IF ZERO 

;***************TEST 

;R3 SHOULD BE ZERO 



7 - ERROR 4< 



7 - ERROR 5' 



7 - ERROR 6< 



.•CHECK R4 UNCHANGED 
•BR IF OK 

;***t***********TEST 7 - ERROR 7*****«****»»*** 

.•R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL' 
.-CHECK R5 UNCHANGED 

::?!.ii.K.».....TEST 7 - error IO*...********... 
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T7 TEST 'Wove" WITH DSTAO .GT. SRCAD, SRCLN .LT. OSTLN 



SEQ 



K4<i 
H45 
U46 
U47 
U48 
1449 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
148 
148 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 



003246 

003246 
003252 
003254 
003256 



003260 
003260 
003264 
003270 
003272 
003274 



003276 
003300 
003302 
003306 
003312 
003316 
003320 

003322 
003324 
003326 
003330 
00333? 



003334 




012700 
105720 
001401 
104011 



012702 
016701 
122022 

nouol 

104012 



005301 
001373 
016705 
166705 
122067 
001401 
104013 

105305 
001372 
105720 
001401 
104014 



016710 



016310 
175354 



175342 
175332 
175336 



000004 

Q04S67 010706 



000007 
016711 
000377 

004767 010716 
004567 010740 



70S: 



71$: 
2S: 

T7E12: 



3S: 
4S: 



MOV 
TST8 
BEO 
ERROR 



nov 
nov 

C«P8 

BEO 

ERROR 



DEC 
BNE 

nov 

SUB 
CMP8 
BEO 
ERROR 

DECB 

BNE 

TST8 

BEO 

ERROR 



#8UF2,R0 
(RO)* 
71$ 
11 



#8UF1,R2 

SRCLN^RI 

(R0)*,(R2)* 

.♦4 

12 



R1 

T7E12 

DSTLN«R5 

SRCLN,R5 

(R0}«,F1LL 

4S 

13 

R5 
3$ 

(R0) + 
ENDT7 
14 



;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION 'lABLE" 
.-VERIFY DESTINATION 

:POINT RO TO DESTINATION LOWER BYTE BOUNDAR> 
.-TEST CONTENTS OF BOUNDARY 
:BR, IF STILL ZERO 

;***************TEST 7 - ERROR 11 ••••••••• 

;LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL 2ER0 

.-POINT R2 TO ORIGINAL SOURCE BYTES 
.-STORE TRANSFER BYTE COUNT IN R1 
•CHECK CHARACTERS IN DESTINATION 
."R IF OK 

; **************TEST 7 - ERROR 12*»**»»»»»»»***t 
.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.-DECREMENT BYTE COUNT 

:8R, IF NOT FINISHED CHECKING 

.-CHECK FILL 



;***************TEST 7 - ERROR 13* 
.-'TILL" ERROR IN DESTINATION 



ENDT7: 



.-TEST CONTENTS OF DEST. UPPER BOUNDARY 
.-BR. IF STILL ZERO 

;ft***ftftft*ft******TEST 7 - ERROR 14*****< 
.-UPPER BOUNDARY OF DEST. CHANGED 
: SHOULD STILL EQUAL ZERO 



• 'A************************************************************** 

;*TEST 10 TEST 'TtOVC" WITH DSTAD .LT. SRCAD I SRCLN .GT. DSTLN. (TRUNCATON) 

••THIS TEST CHECKS FOR PROPER TRANSFER OF BYTES WHEN THE 
;*SOURCE IS HIGHER IN nENORY THAN THE DESTINATION AND THE TRANSFER 
;*IS TRUNCATED (SRCLN > DSTLN). ^, 
;*THE RESULT IS A TRUNCATED SOURCE IN THE DESTINATION. R0~>R3 
;*EQUAL ZERO, AND ALL CONDITION CODES CLEAR. 



TST10: 



SCOPE 
JSR 



JSR 
JSR 



R5.PREP .'SET UP INSTRUCTION ARG(f1ENTS 

20 .-SOURCE LENGTH 

BUF2«20 .SOURCE ADDRESS 

7 .-DESTINATION LENGTH 

m2*^ .-DESTINATION ADDRESS 

377 .FILL CHARACTER 

PC.CLDST ; CLEAR DESTINATION AREA 

R5.GENSRC .GENERATE SOURCE STRING 
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no 



TEST 'TWVC 



0 3 
WiTri OSTAD 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1>07 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 

r.38 

1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 



003364 
003366 

mi 

003376 
003402 



000020 
016730 
004567 
000200 
004767 
000277 



010750 
010602 



003404 076030 



003406 
003412 
003414 



003416 
003416 
003422 
003424 
003430 



003432 
003432 
003436 
003440 

003442 
003446 
003450 

003452 
003452 
003456 
003462 
003464 
003466 

003470 
003470 
003472 
003474 

003476 
003S00 
003502 

003504 
003506 
003510 

003512 

3oisi6 



004767 010756 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



026704 175216 
001401 
104003 

026705 175210 
001401 
104004 



016705 175166 
166705 175166 
020005 
001401 
104005 



005701 
001401 
104006 

005702 
001401 
104007 

005703 
OOUOl 
104010 



0127Q0 016710 
10S720 



64$: 



65S: 

66S: 
67$: 



68$: 

69$: 
70$: 
71$: 



.yORD 

.WORD 

JSR 

.WORD 

JSR 

sec 

Move 

JSR 
BEO 
ERROR 



CMP 
BEQ 

nov 

ERROR 



CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



MOV 
SUB 
CMP 
BEQ 
ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 



MOV 
TSTB 



20 

BUF2+20 
RS.XPSU 
206 

PCGENR 



PCCKCC 
64$ 

1 



a#SAVR6,SP 
65$ 

SP,a«BADR6 

2 



F1LL,R4 
66$ 

3 

TABLE, R5 

67$ 

4 



SRCLN,R5 
DSTLN,R5 
R0.R5 
68i 

5 



R1 

69$ 

6 

R2 

70$ 

7 

R3 
71$ 

10 



LT. SRCAD t SRCLN .6T. DSTLN, (TRUNCATON) 



S£Q 



.•STORE EXPECTED PSW VALUE 

:SET UP GENERAL REGISTERS 
;SET ALL CONDITION CODES 

.EXECUTE 'WOVE CHARACTER" INSTRUCTION 

.'CHECK PSW. GENERATE CONDITION CODES 



;***********t***rEST 10 - ERROR I*************** 
'PSW ERROR 

•EXPECTED PSW IS STORED AT ••^XPPSU" 
.•ACTUAL PSy IS STORED AT "CCODES" 

.-VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 10 - ERROR 2*********«***** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.ERRONEOUS VALUE IS AT 'fiADR6" 

: CHECK R4 UNCHANGED 
*BR IF CMC 

'•********ft******TEST 10 - ERROR 3***********»»** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION "FILL" 
.•CHECK R5 UNCHANGED 
*BR IF OK 

;***************TEST 10 - ERROR 4*»t#»«»»*»»t*»» 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE' 

.•CHECK ROsSOURCE LENGTH MINUS 
; DESTINATION LENGTH 



;***************TEST 10 - ERROR S************ 

:R0 NOT EQUAL TO (SRCLN-DSTLN) 
.•CHECK OTHER GENERAL REGISTERS 
;TEST R1 
;BR. IF ZERO 

;*ft*************rEST 10 - ERROR 6*********»*' 

:R1 SHOULD BE ZERO 
;TEST R2 
;BR IF ZERO 

;*ft*ft****ftft**ft**TEST 10 - ERROR 7***********< 

;R2 SHOULD BE ZERO 
;TEST R3 
;BR. IF ZERO 

;***************TEST 10 - ERROR 10******»»**« 
;R3 SHOULD BE ZERO 

.•VERIFY DESTINATION AREA 

.'POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
;TEST CONTENTS OF BOUNDARY 



c5filL.P?t''''2l?ji2i82 Ol-li"^'"' °'''no'*'' ?EST -IWVC-UITH OSTAD^LT. SRCAD i SRCLN .GT. DSTLN. (TRUNCATON) 



SEQ 0030 



1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

157A 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

^611 



003520 
003522 



003524 
003524 

0035r 
0035] 
0035! 
003540 



003542 
003544 
003546 
003550 
003552 



003554 



003554 
003556 
003562 
003564 
003566 
003570 
003572 
003574 
003602 
003610 
003616 



001401 
104011 



016702 
016701 
122022 
001401 
104012 



005301 
001373 
^05720 
001401 
104013 



000004 
004567 
016310 
000010 
016710 

ooooip 

012737 
013767 
012737 
004767 



003622 076032 



175116 
175114 



BEQ 
ERROR 



72$: 

MOV 

nov 

T10E12: CMPfl 
BEQ 
ERROR 



DEC 

BNE 

TST8 

BEQ 

ERROR 



ENDT10: 



72$ ;8R, If STILL ZERO 

n ;*ftft***»******t*TEST 10 - ERROR 11 ••••••••••••••• 

;LOUER BOUNDARY OF DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 

SRCAD. R2 

DSTLN.R1 :STORE TRANSFER BYTE COUNT IN R1 

(R0)*,(R2)^ ;CHECK CHARACTERS IN DESTINATION 
.♦4 ;8R IF OK 

12 ;ft**************TEST 10 - ERROR 12**»*«***«««* 
.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC*1 OF THE BAD DESTINATION CHARACTER 

R1 .-DECREMENT BYTE COUNT 

T10E12 :BR. IF NOT FINISHED CHECKING 

(RO)^ .-TEST CONTENTS OF DEST. UPPER BOUNDARY 

ENDTIO ;8R. IF STILL ZERO 

13 ;*****ft**ft******TEST 10 - ERROR 13*************** 
.-UPPER BOUNDARY OF DEST. CHANGED 

: SHOULD STILL EQUAL ZERO 



010466 



076032 



000010 
003632 
010362 



003622 
175076 
000010 



003624 
003630 



003632 
003634 
003640 
003646 
003650 



016700 ^7777^ 
104001 



012626 
005267 
022767 
001363 
016737 



177762 
076040 

U5052 



177754 
000010 



••TEST 11 TEST THAT BAD '^WVE" OPCODES TRAP 

••THIS TEST VERIFIES THAT OPCODES 076032~>076037 TRAP TO 
.••LOCATION 10 

* * Aik4^ftlkftik1ft1ft4lft^A%^^^^^^t^^^ftft4^^4^^ V vw www w V w V V VwW www w w 

Hill* SCOPE 

' JSR R5.PREP .-SET UP INSTRUCTION ARGUMENTS 

SUFI .SOURCE LENGTH 

10 .SOURCE ADDRESS 

BUFZ ;DESTINATION LENGTH 

10 .-DESTINATION ADDRESS 

377 .-FILL CHARACTER 

NOV f076032,a#B011 .-STORE THE FIRST BAD MOVE OPCODE 

NOV VIO.TEApI .-SAVE ILLEGAL INSTRUCTION TRAP VECTOR 

MOV #T11C0NT.a#10 -POINT ILLEGAL INSTRUCTION VECTOR TO CONTINUE TEST 

REPll: JSR PC.6ENR ;SET UP GENERAL REGISTERS 

BD11: .WORD 076032 .-EXECUTE BAD MOVE INSTRUCTION 

NOV BD11«R0 .-STORE BAD OPCODE THAT DID NOT TRAP 

ERROR 1 ••••••••••••••••TEST 11 - ERROR ^•••••••••••••^ 

;BAD MOVE OPCODE DID NOT TRAP 

.-RO CONTAINS THE BAD OPCODE 

T11C0NT:M0V (SP) + .(SP)* .-RESTORE THE STACK POINTER AFTER THE TRAP 

INC 6D11 INCREMENT INSTRUCTION OPCODE 

CfV> #076040.BD11 .FINISHED WITH BAD MOVE OPCODES? 

BNE REP11 ;BR IF NOT 

MOV TEMPI. 8#10 .-RESTORE ILLEGAL INSTRUCTION TRAP VECTOR 



.ruiN. 

CVKAIB.P11 



1612 

1613 

16U 

161S 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1650 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1658 

1659 

IfrtO 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 
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32 

TEST 



F 3 

THAT BAD "KyE" OPCODES TRAP 



SEQ 0031 



003656 
003660 

003664 
003670 
003672 
003676 
003700 
003702 
003704 
003706 
003710 
003714 
003722 
003730 
003734 
003740 
003746 
003752 
003754 
003760 
003766 
003772 
003774 



000004 
004767 

005767 
001155 
004567 
000374 
016310 
000376 
016711 
000377 
004767 
012767 
012777 
005077 
004767 
013777 
004567 
000011 
106427 
052777 
004767 
000251 
000266 



003776 076030 



004000 
004004 
004012 
004014 
004022 
004030 
004032 



004034 



106767 
032777 
001365 
042767 
023767 
001401 
104001 



010526 
175014 
010352 



010362 
003776 
014506 
174732 
010522 
000554 
010372 

000000 
000100 
CI0212 



174666 
000100 

177400 
000674 



.••TEST 12 TEST INTERRUPTABILITr OF 'WVC" INSTRUCTION 

•iTHirfESriNTERRUPTS THE EXECUTION OF THE 'WOVC" 
.-•INSTRUCTION, RESUMES THE INSTRUCTION AFTER THE 
.••INTERRUPT. AND VERIFIES THE RESULTS. 
.••THE PROPER RESULT IS ALL BYTES MOVED 
.••TO THE DESTINATION. RO— >R3 EQUAL ZERO 
;^AND CONDITION CODES N.C-1 AND Z,V-0 



tST12: 



174746 
174734 



174714 



174672 



REPMC: 



«C: 



174646 

174650 
174642 



64$: 



SCOPE 
JSR 

TST 
BNE 
JSR 



JSR 

mv 

NOV 

CLR 
JSR 

nov 

JSR 
.UORD 
HTPS 
BIS 
JSR 

♦CLN'CLC 
♦SEViSEZ 

novc 

HFPS 
BIT 
BNE 
BIC 
C«P 
BEO 
ERROR 



PC.SKPINT 

TE«P 

TST13 

R5,PREP 

374 

BUF1 

376 

BUF2«1 

377 

PC.CLDST 
mC.PCI ; STORE 
fINTR.iTVECT 
iTPSU 
PC-TDONE 

anNULL.aTBUF 

R5.XPSW 
11 
#0 

flOO.iTCSR 
PCGENR 



;SET FLAG — TE«P, WHICH INDICATES IF 
.•NEXT TEST IS TO BE EXECTED NEXT. 
.CHECK IF -TE«P- IS SET 
;TENP IS SET, 60 TO NEXT TEST 
.•SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
.•SOURCE ADDRESS 
.•DESTINATION LENGTH 
.•DESTINATION ADDRESS 
;FILL CHARACTER 
.•CLEAR DESTINATION 
PC OF TEST INSTRUCTION 
.•POINT TTY VECTOR TO INTERRUPT ROUTINE 
;AL10W INTERRUPTS AFTER TTY INTERRUPT 

;SEND CARRIAGE RETURN 
.•STORE EXPECTED PSU VALUE 

;SET PSU TO ALLOW INTERRUPTS 
.'ENABLE TTY INTERRUPTS 
.SET UP GENERAL REGISTERS 



.EXECUTE 'flOVE CHARACTER"INSTRUCTION 



CCODES .-STORE THE PSW 

flOO.BTCSR :IF INTERRUPT ARE DISABLED. THF INSTRUCTION WAS NOT INTE 

REPnC :BR t DO TEST AGAIN, IF INSTRUCTION WAS NOT INTERRUPTED 

#177400, CCODES ; CLEAR ALL UNUSED BITS 
airEXPPSW,CCODES ; check PSW AGAINST EXPECTED VALUE 
64$ ;BR. IF EQUAL 

1 ;***************TEST 12 - ERROR 1»****t*****t»** 

•PSW ERROR 
•EXPECTED PSW IS STORED AT 'tXPPSW 
.•ACTUAL PSW IS STORED AT "CCODES" 



004034 023706 000676 

004040 001 403 

004042 010637 000700 



: CHECK RESULTS 

CMP afSAVR6,SP ; VERIFY STACK POINTER IS RESTORED 

BEQ 65$ .BR IF OK 

NOV SP,a«8ADR6 .STORE BAD SP VALUE 



.WAIN. 
CVKAIB 

1668 

166V 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

16/9 

!6A0 

1681 

1682 

1685 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 



HACY11 30(1046) 
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004046 104002 



004050 
004050 
004052 
004054 

004056 
004056 
004060 
004062 

004064 
004066 
004070 

004072 
004074 
004076 

004100 
004100 
004104 
004106 

004110 
004114 
004116 

004120 
004120 
004124 
004130 
004132 
004134 



004136 
004136 
004142 
004146 
004150 
004152 




005700 
001401 
104003 



005701 
001401 
104004 

005702 
001401 
104005 

005703 
001401 
104006 



026704 
001401 
104007 

026705 
001401 
104010 



012700 
012700 
105720 
001401 
104011 



016702 
016701 
122022 
001401 
104012 



Q053Q1 
001373 
016701 
166701 
lP067 
001401 
104013 



174550 
174542 



016710 
016710 



174504 
174476 



174464 
174454 
174460 



6 3 

°*'*tl2^^^^ TEST INTERRUPTABILITY OF '^VC" INSTRUCTION SEO 0032 

ERROR 2 ..•tt»»ttt«t«««t«TEST 12 - ERROR 2*«***»*»******* 

.STACK POINTER NOT RESTORED Br INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.ERRONEOUS VALUE IS AT 'BA0R6^' 

TST RO .CHECK RO^ZERO 

BEQ It 

ERROR 3 ;t***..*******t*TEST 12 - ERROR 3«** • 

:R0 SHOULD BE ZERO 
IS: ; CHECK OTHER GENERAL REGISTERS 

TST Rl ;TEST Rl 

BEO 66$ :8R, IF ZERO 

ERROR 4 ...«*..TEST 12 - ERROR 4«»» 

:R1 SHOULD BE ZERO 
66$: TST R2 .TEST R2 

BEQ 67$ ;BR IF ZERO 

ERROR 5 .•••***»*»**»»»*TEST 12 - ERROR 5»*********»*«** 

;R2 SHOULD BE ZERO 
67$: TST R3 ;TEST R3 

BEQ 68$ :SR. IF ZERO 

ERROR 6 ;»*«»***»**»»»*»TEST 12 - ERROR 6*»»***********« 

:R3 SHOULD BE ZERO 

68$: 

Cf>IP FILL.R4 ; CHECK R4 UNCHANGED 

BEQ 69$ ;8R IF OK 

ERROR 7 .••••••••••••••••TEST 12 - ERROR 7**»******«***«» , 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
69$: CnP TABLE, R5 .CHECK R5 UNCHANGED 

BEQ 70$ ;8R IF OK 

ERROR 10 ..•••••••**»**»*»TEST 12 - ERROR 10*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

70$: 

NOV 4QU^2 RO 

NOV «BUF2!rO .point RO TO DESTINATION LOWER BYTE BOUNDARY 

TST6 (R0)4 ;TEST CONTENTS OF BOUND>;%Y 

BEQ 71$ ;8R, IF STILL ZERO 

ERROR 11 ••••♦••«***»»*»*TEST 12 - ERROR 11 •*••**•*•••»•*• 

; LOWER BOUNDARY OF DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 

71$' 

4$:* NOV SRCAD.R2 .POINT R2 TO THE SOURCE ADDRESS^ 

NOV SRCLN,R1 ;STORE TRANSFER BYTE COUNT IN Rl 

T12E12: CNP8 (R0>««(R2)^ ; CHECK CHARACTERS IN DESTINATION 

BEQ ;6R IF OK 

ERROR 12 ;»»»*»»»*»»***»»TEST 12 - ERROR 12*************** 

-COMPARE ERROR IN DESTINATION 

•RO CONTAINS THE ?C*^ OF THE BAD DESTINATION CHARACTER 

DEC Rl .DECREMENT BYTE COUNT 

BNE T12E12 :BR, IF NOT FINISHED CHECKING 

MOV DSTLN.RI .-CALCULATE THE NUMBER OF 'rill" ^ ^ 

SUB SRCLNIrI .-CHARACTERS THAT SHOULD APPEAR IN DEST. 

5$: cm (R0)«:f1LL check LSB'S of DEST. FOR FILLS 

BEQ 6$ ;BR. IF EQUAL ^ 

ERROR 13 ;******»*»**»*»»TEST 12 - ERROR 13*************** 

•••FILL" ERROR IN DESTINATION 
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172A 

1725 

1726 

172^ 

1728 

1729 

1750 

1731 

1752 

1755 

175A 

1755 

1736 

1757 

1758 

1739 

1740 

1741 

1742 

1745 

1744 

1745 

1746 

1/47 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 



004226 
004232 
004234 
004236 
004240 
004242 
004244 
004250 
004254 
004256 
004262 



O'<.?00 0Q5301 

004202 001372 

004204 105720 

004206 001401 

004210 104014 



004212 



004212 106427 000200 
004216 016777 174444 



44 PAGE 
T12 

6S: 



174440 



ENDT12: 



40$: 



54 

TEST 

DEC 

BNE 

TSTB 

BEO 

ERROR 



HTPS 

nov 



H 3 

INTERRUPTA81LITV OF '^WVC" INSTRUCTION 



SEQ 0033 



Rl 
5S 

(RO* 

ENDT12 

14 



«200 

TPSU.aTVECT 



.-OECREHENT FILL COUNT 

:BR. IF NOT FINISHED 

;TEST CONTENTS OF DEST. UPPER BOUNDARY 

;BR, IF STILL 7ER0 

;***ttttttt*ft***TEST 12 - ERROR 14*«**< 
: UPPER BOUNDARY OF DEST. CHANGED 
; SHOULD STILL EQUAL ZERO 



.•RESTORE PSy TO PRIORITY 7 
.RESTORE TRAP CATCHER 



004224 000004 



004567 
000020 
016310 
000011 
016711 
000377 
004767 
004567 
000200 
004767 
000277 



004264 076031 



004767 
001401 
104001 





:*TEST 13 TEST 'WVRC" INSTRUCTION WITH SRCAD(LSB) .LT. DSTAD(LS8). SL .GT. DL 

••PROPER TERMINATION FOR THIS INSTRUCTION TEST IS A 
.-•TRUNCATED SOURCE REVERSE (HIGH ADDRESS) JUSTIFIED 
;t(WITH HOST SIGNIFICANT BTTES NOT MOVED) IN THE 
.••DESTINATION. RO EQUALS THE NlfBER OF UIMOVED SOURCE 
.••BYTES. Rl— >R3 EQUAL ZERO AND ALL CONDITION CODES 
.••CLEAR 



010016 



010026 
010070 

007722 



010076 



thl3: SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

sec 

NOVRC 

JSR 
BEO 
ERROR 



023706 000676 
001403 
010637 
104002 



64S: 



000700 



CMP 
BEQ 

nov 

ERROR 



R5.PREP 
20 
BUfI 
11 

BUF2+1 
377 

PC.CLDST 

R5.XPSU 

206 

PC.6ENR 



PC.CKCC 
^4S 

1 



»rSAVR6.SP 
65S 

SP.a«BADR6 



;SET UP INSTRUCTION ARGlfCNTS 
.•SOURCE LENGTH 
.SOURCE ADDRESS 
.DESTINATION LENGTH 
.•DESTINATION ADDRESS 
.FILL CHARACTER 
.•CLEAR DESTINATION 
.•STORE EXPECTED P£V VALUE 

.SET UP GENERAL REGISTERS 
.SET ALL CONDITION CODES 
.EXECUTE ^WVE REVERSE CHARACTER" 

.•CHECK RESULTS 

.CHECK PSW. GENERATE CONDITION COOES 



;***ftt**********TEST 13 - ERROR l***t»»**t« 

•PSW ERROR 

•EXPECTED PSU IS STORED AT 'tXPPSU" 
.•ACTUAL PSW IS STORED AT 'tCODES" 

; VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•STORE BAD SP VALUE , 
;ftftft***ft******ft*TEST 13 - ERROR 2^»^^**»»«« 
.STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT ^BADR6^' 
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n3 TEST "TWyRC" INSTRUCTION WITH SRCA0(LS8) .LT. 0STA0<LS8), SL .CT. DL 



SEQ 



1780 

1781 

1782 

'783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

17% 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

181? 

1814 

181S 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

5835 



004312 
004512 
004316 
004320 

004322 



004326 
004330 

004332 
004332 
004536 
004342 
004344 
004346 

004550 
004350 
004352 
004354 

004356 
004560 
004362 

004564 
004566 
004570 

004372 

004572 
004576 
004400 
00440? 



004404 
004404 
004410 
004414 
004420 
004424 
004426 
004430 



026704 
001401 
104003 

026705 
001401 
104004 



016705 
166705 
020005 
001401 
104005 



005701 
001401 
104006 

005702 
001401 
104007 

005705 
001401 
104010 



012700 
105720 
001401 
104011 



016702 
166702 
066702 
016701 
122022 
001401 
104012 



004452 005301 

004434 001373 

004436 105720 

004440 001401 

004442 104013 



004444 



174336 
174330 



174306 
174506 



016710 



65S: 

66S: 
67S: 



174254 
174234 
174226 
174224 



CHP 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



nov 

SUB 
C«P 
BEQ 
ERROR 



TST 
BEQ 
ERROR 

Tsr 

BEQ 
ERROR 

TST 
BEQ 
ERROR 



nov 

TST8 

BEQ 

ERROR 



72$: 

nov 

SUB 
ADD 
MOV 
T13E1?: C«Pe 
BEQ 
ERROR 



DEC 

6ME 

TST8 

BEQ 

ERROR 



68S: 

69S: 
70S: 
71$: 



FJLL.R4 

66$ 

3 

TABLE. RS 

67$ 

4 



SRCLN,R5 

DSTLN,R5 

R0.R5 

68i 

5 



R1 
69$ 

6 

R2 

70$ 

7 

R3 

71$ 

10 



«8UF2,R0 
(R0>« 
72$ 
11 



SRCLN,R2 

DSTLN,R2 

SRCAD.R2 

DSTLN.R1 

(R0)*.(R2)* 

.♦4 

12 



Rl 

T13E12 
(RO)* 
ENDT13 
13 



.-CHECK R4 UNCHANGED 
;BR IF OK 

;***t*«t««*«««**TEST 13 - ERROR 3««*^«******«*«* .. 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL* 
.CHECK R5 UNCHANGED 
*BR IF OK 

}ft*ftftfttftft«**tft*ftTEST 13 - ERROR 

;RS SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE* 

.•CHECK RO-SOURCE LENGTH MINUS 
; DESTINATION LENGTH 



tTEST 13 - ERROR 5*« 

;R0 NOT EQUAL TO (SRCLN-DSTLN) 
.CHECK OTHER GENERAL REGISTERS 
.-TEST Rl 
;8R. IF ZERO 

TEST 13 - ERROR 6** 

;R1 SHOULD BE ZERO 
.TEST R2 
;BR IF ZERO 

;ft**ft«ftft*ft**ftftftftTEST 13 - ERROR 7*« 
;R2 SHOULD BE ZERO 
.•TEST R3 
;8R. IF ZERO 

;***ft***********TEST 13 - ERROR 10< 
;R3 SHOULD BE ZERO 



ENDT13: 



.•VERIFY DESTINATION AREA 

.POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
;TEST CONTENTS OF BOUNDARY 
;BR. IF STILL ZERO 

;**ft************TEST 13 - ERROR II*************** 

.•LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL ZERO 

.•CALCULATE ADDRESS OF HSB OF THE 
: SOURCE TO BE MOVED 

; STORE TRANSFER BYTE COUNT IN Rl 
.•CHECK CHARACTERS IN DESTINATION 
•BR IF OK 

}**ft************rEST 13 - ERROR 12*************** 
.•COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC«1 OF THE BAD DESTINATION CHARACTER 

.•DECREMENT BYTE COUNT 

;BR, IF NOT FINISHED CHECKING 

.TE^T CONTENTS OF DEST. UPPER BOUNDARY 

;BR. IF STILL ZERO 

;.t*ftft***********TEST 13 - ERROR 13******"******* 

.•UPPER BOUNDARY OF DEST. CHANGED 
; SHOULD STILL EQUAL ZERO 
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1836 
1837 
1838 
1839 
1840 
18A1 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
18S0 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1979 
1880 
1881 
1882 
18&3 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
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T13 TEST 'mRC" INSTRUCTION yiTH SRCA0(LS8) .LT. DSTA0(LS8), SL .GT. DL 



SEO 0035 



.••TEST 14 



TEST "HOVRC" INSTRUCTION WITH SRCA0(LS8) .LT. DSTADdSS). DL .GT. SL 



.••PROPER TERMINATION FOR THIS INSTRUCTION TEST IS A 
.••TRANSFER OF ALL BYTES FROM SOURCE TO DESTINATION 
.••AND "FILL" CHARACTERS IN THE HS8 OF THE DESTINATION, 
.••(RO— >R3 EQUAL ZERO, AND CONDITION CODES N,C-1 AND 
.••Z.V=0 



004444 


000004 




004446 


004567 


007576 


004452 


000011 




004454 


016310 




004456 


000020 




004460 


016711 




004462 


000377 




004464 


004767 


007606 


004470 


004567 


007650 


004474 


000211 




004476 


004767 


007502 


004502 


000251 




004504 


000266 




004506 


076031 




004510 


004767 


007654 


004514 


001401 




004516 


104001 





TST14: 



004520 
004520 
004524 
004526 
004532 



004534 
004534 
004536 
004540 

004542 
004542 
004544 
004546 

004550 
004552 



023706 000676 
001403 

010637 000700 
104002 



005700 
001401 
104003 



005701 
001401 
104004 

005702 
001401 



64$: 



65S: 



IS: 



66S: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

KLN! CLC 
♦SEVISEZ 

nOVRC 

JSR 
BEO 
ERROR 



R5.PREP 
11 

BUF1 
20 

BUF 2*1 

377 

PC.CLDST 
R5.XPSU 
2l1 

PC.GENR 



PC.CKCC 
64S 

1 



CMP 
BEO 
MOV 
ERROR 



afSAVR6,SP 
65$ 

SP,a4fBADR6 



TST RO 
BEQ 1$ 
ERROR 3 



TST 
BEQ 
ERROR 

TST 
BEO 



R1 

66$ 

4 

R2 
67$ 



;SET UP INSTRUCTION ARGlflENTS 
.•SOURCE LENGTH 
; SOURCE ADDRESS 
.•DESTINATION LENGTH 
.•DESTINATION ADDRESS 
;FILL CHARACTER 
.-CLEAR DESTINATION 
.-STORE EXPECTED PSU VALUE 

;SET UP GENERAL REGISTERS 

.'CLEAR CONDITION CODES NtC 
.•SET CONDITION CODES VtZ 

.EXECUTE "mVE REVERSE CHARACTER" 

'CHECK RESULTS 

; CHECK PSU. GENERATE CONDITION CODES 



;***************TEST 14 - ERROR 1***»»*»^^» 

*PSU ERROR 

•EXPECTED PSU IS STORED AT "EXPPSU" 
.'ACTUAL PSU IS STORED AT "CCODES" 

.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•STORE BAD SP VALUE 

;**ft************TEST 14 - ERROR 2*^**«****« 
.-STACK POINTER NOT RESTORED BY INSTRUCTION 
.'EXPECTED VALUE OF SP IS STORED AT '*SAVR6" 
.ERRONEOUS VALUE IS AT 'BADR6^' 

; CHECK RO^ZERO 
;8R. IF ZERO 

;**«***o**t****TEST 14 - ERROR 3«*»*««*^^« 

.'RO SHOULD BE ZERO 

; CHECK OTHER GENERAL REGISTERS 

.TEST R1 

:BR. IF ZERO 

;**ft**********^«TEST 14 - ERROR 4»*****»**« 

;R1 SHOULD BE ZERO 
.'TEST R2 
:BR IF ZERO 
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22-JA* 


CVKAIB. 
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1892 


004554 


104005 

1 v~ v/v*y 




1893 








1894 


004556 


005703 




1895 


A A / C ^ A 

004560 


001401 




1896 


Ay\y 1 

004562 


104006 




1897 








1898 


0vK564 




1 74064 


1899 


A A 1 C d. 1 

004564 


026704 


1900 


AA/ C ^A 

004570 


001401 




1901 


004572 


104007 




1902 






1 74056 


1901 


/w\y c 7y 


026705 


190A 


A Ay ^ A A 

004600 


001401 




1905 


AAy 

004602 


104010 




1906 








1907 


AAy ^ Ay 




016710 


1908 


AAy x.Ay 


012700 


1909 


A/\y ^ 4 A 


105720 




1910 


AAy ^ t O 

004612 


001401 




191 1 


AAy ^ 4 y 

004614 


10401 1 




1912 
















1914 


AAy ^ 4 

004616 






4 O 4 C 

1915 


AAy ^ 4 ^ 

004616 


016702 


1 74026 


4 o i ^ 

1916 


004622 


166702 


174016 


1 VI r 


0040^6 


010201 


174020 


1 V lo 


004630 


122067 


l9l9 


AAy ^ Ty 

004634 


001401 




1920 


004636 


104012 




4 O^l 

IVJ 1 








1922 








1923 




005301 




1924 


AAy X y A 

004640 




1925 


AAy i y O 

004642 


001372 


1 73776 


1926 


004644 


016702 


1927 


AAy ^ c A 

0046)0 


016701 


173770 


1928 


AAy ^cy 
004654 


122022 




1929 


AAy 

004636 


OOUOl 




t OTA 

1930 


AAy X^A 

004660 


104013 




1931 








193/ 








1933 










AAy 

004662 


005301 




4 C 

1933 


AAy ^^y 
004664 


001373 




1956 


AAy ^X.^ 

004666 


105720 




1937 


AAy X 7A 

0046^0 


001401 




1938 


004ore 


104014 




1 V3V 








It40 








1 Qi. 1 


004674 






1 A/ ^ 








1945 








1 Qi.L 
1 TH<l 








1945 








1946 








1947 









08:44 PAGE 
T14 



67$: 
68S: 



37 

TEST 'WOVRC 



K 3 

INSTRUCTION WITH SRCAD(LS8) .LT. CSTADdSB), OL .CT. SL 



69$: 
70S: 



71$: 
T14E12: 



T14E13: 



ERROR 


5 


TCT 


ox 


BEQ 


68$ 


ERROR 


6 


C«P 


FILL,R4 






ERROR 


7 


rMP 


r AOl C DC 
1 ^OLC rnj 


OCU 






10 


NOV 


«8UF2,R0 


TST8 


(R0)4^ 


BEO 


71$ 


ERROR 


11 



nov 

SUB 

nov 

CMPB 

BEQ 

ERROR 



DEC 
BNE 

nov 
nov 
cnpB 

BEQ 
ERROR 



DEC 

BNE 

TSTB 

BEQ 

ERROR 



ENOTU: 



;***ftftftft*ft*ftftft**rEST 14 - ERROR 5« 
;R2 SHOULD BE ZERO 
.TEST R3 
;BR, IF ZERO 

..•••••••*ft**ftft**TEST 14 - ERROR 6* 

;R3 SHOULD BE ZERO 



.CHECK R4 UNCHANGED 

;8R IF OK 

;***************TEST 14 - ERROR 7«********»***** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.CHECK R5 UNCHANGED 
:6R IF OK 

;*************«*TEST 14 - ERROR lO*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.-POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
.-TEST CONTENTS OF BOUNDARY 
:BR, IF STILL ZERO 

;***************TEST 14 - ERROR 11 •*••••••••••••• 

.LOWER BOUNDARY OF DESTINATION CHANGED 
: SHOULD STILL EQUAL ZERO 

DSTIN.R2 .-CALCULATE THE NUMBER OF 'TILL" 

SRCLN.R2 ; CHARACTERS THAT SHOULD APPEAR IN DEST. 

R2.R1 .-STORE TRANSFER BYTE COUNT IN R1 
(r6)«.FILL .check CHARACTERS IN DESTINATION 

.♦4 ;BR IF OK 

12 ;***************TEST 14 - ERROR 12»»»»**»***»**»* 

; COMPARE ERROR IN DESTINATION 

;R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 



R1 

TUE12 

SRCAD.R2 

SRCLN.R1 

(R0)*.(R2)* 

.♦4 

13 



R1 

T14E13 
(R0)« 
ENDT14 
U 



.-DECREMENT BYTE COUNT 
:BR. IF NOT FINISHED CHECKING 
.-POINT R2 TO SOURCE STRING 
.-STORE TRANSFER BYTE COUNT IN R1 
.-CHECK CHARACTERS IN DESTINATION 
;BR IF OK 

;***************TEST 14 - ERROR 13***»********«" 
.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC*1 OF THE BAD DESTINATION CHARACTER 

.-DECREMENT BYTE COUNT 

.BR. IF NOT FINISHED CHECKING 

:TEh CONTENTS OF DEST. UPPER BOUNDARY 

;BR. IF STILL ZERO 

;ftftft************TEST 14 - ERROR U»»»***t«**»»*** 
: UPPER BOUNDARY OF DEST. CHANGED 
; SHOULD STILL EQUAL ZERO 



r*TEST 15 TEST 'HOVRC" WITH DSTAO(LSB) .LT. SRCAD(L$B), JL^.GT. DL. (TRUNCATED) 

•iTHirTKrCHEciEr^vrREVE^^^ WHEN THE LEAST SIGNIFICANT 



.«AIN. HACY11 30(1046) 22-JAN-82 
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19A8 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1%3 

1964 

1965 

1966 

1%7 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

20)0 

2001 

2002 

2003 



004674 


000004 






00^567 

WVH JVf 


007346 


004702 


000020 










004706 


000007 




004710 


016711 




004712 


000377 


007356 


004714 


004767 


004720 


004567 


007400 


004724 


000020 




004726 


016730 




004730 


004567 


007410 


004734 


000200 


007242 


00^.736 


004767 


004742 


000277 




004744 


076031 




004746 


004767 


007416 


004752 


001401 




004754 


104001 





004756 
004756 
004762 
004764 
004770 



004772 
004772 
004776 
005000 

005002 
005006 
005010 

005012 
005012 
005016 
005022 
005024 
005026 

005030 



023706 
001403 
010637 
104002 



026704 
001401 
104003 

026705 
001401 
104004 



016705 
166705 
020005 
001401 
104005 



000676 
000700 



173656 
173650 



173626 
173626 



L 3 

08:44 PAGE 38 

T15 TEST '1WVRC" yiTH DSTAD(LS8) .LT. SRCAD(LS8). SL .6T. DL. (TRUNCATED) 

:*BYTE OF THE SOURCE IS HIGHER IN HEnORY THAN THE DESTINATION LSB 
.-•AND THE TRANSFER IS TRUNCATED. 

;*THE RESULT IS THE MOST SIGNIFICANT BYTES ARE TRUNCATED. RO < THE 
•••MBER OF BYTES TRUNCATED, R1-->R3 EQUAL ZERO, AND ALL 
.-•CONDITION CODES CLEAR. 



SEQ 003. 



tSTlS: 



64$: 



65$: 

66$: 
67$: 



SCOPE 
JSR 



JSR 

JSR 

.yORD 

.WORD 

JSR 

.UORD 

JSR 

sec 

NOVRC 

JSR 
BEQ 
ERROR 



C«P 
BEQ 
NOV 
ERROR 



CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



MOV 
SUB 
CMP 
BEQ 
ERROR 



R5.PREP 
20 

BUF2>20 
7 

BUF2*1 
377 

PCCLDST 

RS.GENSRC 

20 

BUF2+20 
R5.XPSy 
206 

PCGENR 



PC.CKCC 
64$ 

1 



a#SAVR6.SP 
65$ 

SP.»r6ADR6 



FILL.R4 

66$ 

3 

TABLE. R5 

67$ 

4 



SRCLN.R5 

DSTLN.R5 

R0.R5 

68i 

5 



;SET UP INSmiCTION ARGlftENTS 

.-SOURCE LENGTH 

.-SOURCE ADDRESS 

.•DESTINATION LENGTH 

.DESTINATION ADDRESS 

;FILL CHARACTER 

.-CLEAR DESTINATION AREA 

; GENERATE A SOURCE STRING 



.•STORE EXPECTED PSU VALUE 

;SET UP GENERAL REGISTERS 
;SET ALL CONDITION CODES 

.•EXECUTE 'MOVE REVERSE CHARACTER" INSTRUCTION 
.'CHECK PSU. GENERATE CONDITION CODES 



;***************TEST 15 - ERROR 1 ••••••••••••«•• 

•PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW 
.-ACTUAL PSW IS STORED AT "CCODES" 

: VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 15 - ERROR 2*************** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6^' 

.•CHECK R4 UNCHANGED 
*6R IF OK 

)*********t*****TEST 15 - ERROR 3**********«**** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.CHECK R5 UNCHANGED 
•BR IF OK 

'***************TEST 15 - ERROR 4*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TABLE" 

.•CHECK RO-SOURCE LENGTH MINUS 
: DESTINATION LENGTH 



68$: 



;***ft***********TEST 15 - ERROR 5* 
:R0 NOT EQUAL TO (SRCLN-DSTLN) 
.•CHECK OTHER GENERAL REGISTERS 
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n 3 

08:44^^PA6E 39^^ 'IIOVRC" WITH DSTA0(LS8) .LT. SRCADCLSB). SL .6T. OL. (TRUNCATED) 



SEQ 0038 



2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 



2054 
2055 
2056 
2057 
2058 
2059 



005030 
005032 
005034 

005036 
005040 
005042 

005044 
005046 
005050 

005052 

005052 
005056 
005060 
005062 



005064 
005064 
005070 
005074 
005100 
005104 
005106 
005110 



005112 
005114 
005116 
005120 
005122 



005124 



005701 
001401 
104006 

005702 
001401 
104007 

005703 
001401 
104010 



012700 016710 
105720 
001401 
104011 



016702 173554 
166702 173554 
066702 173546 
016701 173544 
122022 
001401 
104012 



005301 
001373 
105720 
001401 
104013 



69S: 
70$: 
71$: 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



nov 

TSTB 

BEQ 

ERROR 



72$: 

nov 

SUB 
AOO 
flOV 
T15E12: CHPB 
BEQ 
ERROR 



DEC 

BNE 

TSTB 

BEQ 

ERROR 



ENDT15: 



R1 
69$ 

6 

R2 
70$ 

7 

R3 

71$ 

10 



(RO)* 

72% 

11 



SRCLN,R2 

DSTLN,R2 

SRCAD,R2 

DSTLN^RI 

(R0)+,(R2)* 

.♦4 

12 



R1 

T15E12 
(R0)+ 
ENDT15 
13 



.•TEST R1 
;BR, U ZERO 

;**********t****TESr 15 - ERROR 6«« 
;R1 SHOULD BE ZERO 
.TEST R2 
;BR IF ZERO 

;**ft*t*ftftftftft****TEST 15 - ERROR 7*« 
;R2 SHOULD BE ZERO 
.TEST R3 
;BR. IF ZERO 

;*ft*************TEST 15 - ERROR 10* 
;R3 SHOULD BE ZERO 



.•VERIFY DESTINATION AREA 

.•POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
;TEST CONTENTS OF BOUNDARY 
;BR. IF STILL ZERO 

;*****ft*********TEST 15 - ERROR 11 ••••••••••••••• 

.•LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL ZERO 

.•CALCULATE ADDRESS OF MSB OF 
; THE SOURCE TO BE MOVED 

.•STORE TRANSFER BYTE COUNT IN R1 
.•CHECK CHARACTERS IN DESTINATION 
;BR IF 0»C 

;****ftt*********TEST 15 - ERROR 12*************** 

.-COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE PC-^1 OF THE BAD DESTINATION CHARACTER 

.DECREMENT BYTE COUNT 

:BR. IF NOT FINISHED CHECKING 

.-TEST CONTENTS OF DEST. UPPER BOUNDARY 

,BR. IF STILL ZERO 

;**ft************TEST 15 - ERROR 13«************** 
.'UPPER BOUNDARY OF DEST. CHANGED 
; SHOULD STILL EQUAL ZERO 



•tttttt********************************************************* 

•TEST 16 TEST "mm" WITH DSTAD(LSB) .LT. SRCAD(LSfl) & SRCLN .6T. DSTLN, (FILL) 

ifHlS*TEST CHECKr^llOVE REVERSE" WHEN THE LEAST SIGNIFICANT _ 
*BYTE OF THE SOURCE IS HIGHER IN MEMORY THAN THE DESTINATION LSB 

^THE RESULtIs the NsfoF^HE'DESTINSTJON ARE FILLS, R0->R3 EQUAL 
•ZERO, AND CONDITION CODES N.C^I I Z,VsO. 




000004 

004567 007116 

Q00010 

016730 



tST16: SCOPE 
JSR 



R5.PREP 
10 

BUF2^20 



; SET UP INSTRUCTION AROfSNTS 
.•SOURCE LENGTH 
; SOURCE ADDRESS 



.HAIH. HACY11 30(1046) 22-JAN-82 
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N 3 

08:44 PAGE 40 

716 TEST 'mm" WITH DSTAD(LS8) .LT. SRCADdSB) & SRCLN .GT. OSTLN. (FILL) 



SEQ 0039 



2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

^184 
[105 

hio 
|iii 

11! 

hl4 
1115 



005136 
005140 
005142 
005144 
005150 
005154 
005156 
005160 
005164 
005166 
005172 
005174 



005200 
005204 
005206 



005224 
005224 
005226 
'.}5230 

005232 
005232 
005234 
005236 

005|40 

885244 




000015 
016711 
000377 
004767 
004567 
000010 
016730 
004567 
000211 
004767 
000251 
000266 



005176 076031 



004767 
001401 
104001 



005210 

005210 023706 

005214 001403 

005216 010637 

005222 104002 



005700 
001401 
104003 



005701 
001401 
104004 

005702 
0QU01 
104005 

005703 
001401 
104006 



026704 

Mi 

104010 



007126 
007150 



007160 
007012 



007164 



000676 
000700 



64$: 



173374 
173366 



65$: 

3$: 

66$: 
67$: 
68$: 

69$: 



JSR 
JSR 
.WORD 
.WORD 
JSR 
.WORD 
JSR 

♦CLNiCLC 
♦SEV.'SEZ 

novRC 

JSR 
BEQ 
ERROR 



15 

BUF2*1 
377 

PCCLDST 
RS.GENSRC 
10 

BUF2+20 
R5-XPSW 
2lf 

PCGENR 



cnp 

BEQ 
MOV 
ERROR 



TST 
BEQ 
ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



C«P 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



PCCKCC 
64$ 

1 



a4rSAVR6, SP 
65$ 

SP,M'8ADR6 



RO 
3$ 

3 



R1 

66$ 

4 

R2 

67$ 

5 

R3 

68$ 

6 



PJLL,R4 

69$ 

7 

TABLE, R5 
70$ 

10 



DESTINATION LENGTH 
DESTINATION ADDRESS 
FILL CHARACTER 
CLEAR DESTINATION AREA 
GENERATE SOURCE STRING 



.STORE EXPECTED PSU VALUE 
;SET UP GENERAL REGISTERS 



EXECUTE 'MOVE REVERSE CHARACTER" 
CHECK PSU, GENERATE CONDITION CODES 



****ft***ft******TEST 16 - ERROR 1 •••••••••• 

PSU ERRCM 

EXPECTED PSU IS STORED AT 'tXPPSU" 
ACTUAL PSW IS STORED AT 'XCOOES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

***************TEST 16 - ERROR 2********** 
STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
ERRONEOUS VALUE IS AT 'BADR6^' 



**********ftft***TEST 16 - ERROR 3*«««*****«**«*« 

RO SHOULD BE ZERO 

TEST R1 
BR, IF ZERO 

**ft*****t******TEST 16 - ERROR 4*************** 

R1 SHOULD BE ZERO 
TEST R2 
BR IF ZERO 

***************TEST 16 - ERROR 5**»************ 

R2 SHOULD BE ZERO 
TEST R3 
BR, IF ZERO 

****ftft******ft**TEST 16 - ERROR 6***»****»»»**** 

R3 SHOULD BE ZERO 

CHECK R4 UNCHANGED 
BR IF OK 

*****t*****t***TEST 16 - ERROR 7»************** . 

R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

************tt*TEST 16 - ERROU 10""*"*"«**** 

R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '1AM.E" 



.«A1N. HACYll 30(10*6) 
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?n6 

2117 
2116 
2119 
2120 
2121 

2126 
2127 
2128 

!',!? 

2151 
2132 
2153 
2134 
2155 
2156 
2157 
2158 
2159 
2K0 
2K1 
2H2 
;U5 
2UA 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2155 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
:i65 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 



005274 
005274 

m 

005504 

005306 
005506 
005512 
005316 
005520 
005524 
005526 



005550 
005552 
005554 
005540 
005544 
005346 
005350 



005552 
005554 
005556 
005560 
005562 



005564 



012700 
105720 
001401 
104011 



016702 
166702 
010201 
122067 
001401 
104012 



005501 
001572 
016702 
016701 
122022 
001401 
104013 



005501 
001573 
105720 
001401 
1 04014 



22-JAW-82 
08:45 



016710 
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T16 TEST 'HOVRC" WITH 0STAD(LS8) 



.LT. SRCAD(LS8) I SRCLN .6T. DSTLN, (FILL) SEQ 0040 



175556 
1 75526 

175550 



175306 
175300 



005564 000004 

005566 004767 007020 

005372 005767 173306 

005576 001156 

005400 004567 006644 



70$: 



nov 

TSTB 

BEO 

ERROR 



71$: 

nov 

SUB 

nov 

T16E12: CHP8 
BEO 
ERROR 



DEC 
BNE 

mv 

MOV 
T16E13: C«P8 
BEO 
ERROR 



DEC 

BNE 

TSTB 

BEO 

ERROR 



ENDT16: 



#8UF2,R0 
(RO)* 
71$ 
11 



.POINT RO TO DESTINATION LOWER BYTE BOUNDARY 
.TEST CONTENTS OF BOUNDARY 
;8R, IF STILL ZERO 

.•••••••«********TEST 16 - ERROR 11tt»»*»»«»»* 

.•LOWER BOUNDARY OF DESTINATION CHANGED 
; SHOULD STILL EQUAL ZERO 

.•CALCULATE 'TILL" COUNT 



DSTLN,R2 
SRCLN.R2 

R2eA1 ; STORE TRANSFER BYTE COUNT IN R1 
(r6)«,FILL :CHECK characters in DESTINATION 

.♦4 .BR IF OK 

12 ;*************»*TEST 16 - ERROR 12*************** 

.COMPARE ERROR IN DESTINATION 

:R0 CONTAINS THE FC^I OF THE BAD DESTINATION CHARACTER 



R1 

T16E12 

SRCAD.R2 

SRCLN.R1 

(R0)+.(R2)* 

.♦4 

13 



R1 

T16E15 
(R0) + 
ENDT16 
U 



.•DECREMENT BYTE COUNT 

:BR, IF NOT FINISHED CHECKING 

.•STORE TRANSFER BYTE COUNT IN R1 
.-CHECK CHARACTERS IN DESTINATION 
•BR IF OK 

;************t**TEST 16 - ERROR 13*************** 
; COMPARE ERROR IN DESTINATIOfJ 

:R0 CONTAINS THE PC^I OF THE BAD DESTINATION CHARACTER 

.•DECREMENT BYTE COUNT 

;8R. IF NOT FINISHED CHECKING 

.TEST CONTENTS OF DEST. UPPER BOUNDARY 

;BR. IF STILL ZERO 

;***************TEST 16 - ERROR U*************** 
.-UPPER BOUNDARY OF DEST. CHANCD 
; SHOULD STILL EQUAL ZERO 



**************************************************************** 

'•TEST 17 TEST INTERRUPTAP-IITY OF 'tWVRC" INSTRUCTION 

•*****************************>.«***********«********•*********** 

iTHIS TEST INTERRUPTS THE EXECUTION OF THE 'mWC 
•INSTRUCTION. RESUMES THE INSTRUCTION AFTER THE 
•INTERRUPT. AND VERIFIES THE RESULTS. THE PROPER 
•RESULT IS ALL BYTES MOVED TO THE DESTINATION. 
•R0>->R3 EQUAL ZERO, AND CONDITION CODES N.Csl 
•AND Z.V=0. 

;»»»••••••»****••••••••••••»•••••••••*•**•••••**•*****•**•*••**• 

;•»•*••••••••••••*•»•••*•*•%••*••••••••••••••****•**•**•****•**• 

tST17* SCOPE 

* JSR PC.SKPINT ;SET FLAG — TEMP. WHICH INDICATES 

NEXT TEST IS TO ^E EXECTED NEXT. 
TST TEMP .-CHECK IF -TEMP- IS SET 

BNE TST20 ;TEMP IS SET- GO TO NEXT TEST 

JSR R5.PREP ;SET UP INSTRUCTION ARGUMENTS 



IF 



v"Jir8.Pn""2l?ji5^§2 ol?«*^" 0.:««, MGE 0, INSTRUCTION 



SEO CC- 



?^72 

?175 
i'176 
?}?/ 
.J178 
2179 
?180 

?182 
?183 
21 8A 
218S 
2186 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

?220 

222} 

2222 

2225 

222i 

2225 

2226 

1227 



005404 
005406 
005410 
005412 
005414 
005416 
005422 
005430 
005436 
005442 
005446 
005454 
005460 
0OS462 
005466 
005476 
005500 
005504 
005506 



000374 
016310 
000376 
016711 
000377 
004767 
012767 
012777 
005077 
004767 

hmi 

00^,567 
0OC011 
106427 
052777 
004767 
010637 
000251 
000266 



005510 076031 



005512 
005516 
005524 
005526 
005534 
005542 
005544 



005546 



106767 
052777 
001363 
042767 
023767 
001401 
104001 



006654 
005510 
014506 
173224 
007014 
000554 
006664 

000000 
000100 
006504 
000676 



173154 
000100 

177400 
000674 



005546 023706 000676 

005552 001403 

005554 010637 000700 

005560 104002 



005562 
005562 
005564 
005566 

005570 
005570 
005572 
005574 

005576 
005600 
005602 



005700 
001401 
104003 



005701 
001401 
104004 

005702 
001401 
104005 



173240 
173226 



173206 



173164 



REPMRC: 



MRC: 



173134 

173136 
173130 



64$: 



005604 005703 



65$: 

1$; 

66$: 
67$: 



JSR 

nov 

MOV 
CLR 
JSR 
flOV 
JSR 
.UORD 
HTPS 
BIS 
JSR 

nov 

♦CLNfCLC 
^SEViSEZ 

rtOVRC 

HFPS 
BIT 
BNE 
81 C 
C«P 
BEQ 
ERROR 



17'. 

BUF1 

376 

BUF2+1 

377 

PCCLDST 
#nRC,PCI 
fJNTR.arVECT 
iTPSU 
PC.TOONE 
a#$NULL,aTBUF 
R5,XPSU 
11 
»0 

fioo.arcsR 

PCGENR 
SP.a#SAVR6 



CCODES 

fioo^arcsR 

REPMRC 

#177400,CC0DES 

arEXPPSu, CCODES 

64$ 

1 



CHP 
BEQ 

nov 

ERROR 



TST 
BEQ 
ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 



afSAVR6«SP 
65$ 

SP,a4»ADR6 

2 



RO 
1$ 

3 



R1 

66$ 

4 

R2 
67$ 

5 

R3 



.SOURCE LENGTH 

.SOURCE ADDRESS 

.DESTINATION LENGTH 

; DESTINATION ADDRESS 

;FILL CHARACTER 

.'CLEAR DESTINATION 

.•STORE PC OF TEST INSTRUCTION 

.•POINT TTY VECTOR TO INTERRUPT ROUTINE 

.-ALLOW INTERRUPTS AFTER TTY INTERRUPT 

;SEND CARRIAGE RETURN 
.•STORE EXPECTED PSU VALUE 

.SET PSU TO ALLOU INTERRUPTS 
.ENABLE TTY INTERRUPTS 
:SET UP GENERAL REGISTERS 

.-COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 
: CLEAR CONDITION CODES NtC 
: CLEAR CONDITION CODES VCZ 

; EXECUTE 'WVE REVERSE CHARACTER" 

'STORE THE PSU 

;IF INTERRUPT ARE DISABLED, THE INSTRUCTION WAS NOT INTE 

;BR t DO TEST AGAIN, IF INSTRUCTION WAS NOT INTERRUPTED 

; CLEAR ALL UNUSED BITS 

.'CHECK PSW AGAINST EXPECTED VALUE 

;BR, IF EQUAL 

;***************TEST 17 - ERROR I*************** 
;PSW ERROR 

; EXPECTED PSW IS STORED AT "tXPPSW" 
;ACTUAL PSU IS STORED AT 'tCODES" 

.'CHECK RESULTS 

.'VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

-STORE BAD SP VALUE 

;ft*ft*ft*ft******ftftTEST 17 - ERROR 2**»»**»******** 
.'STACK POINTER NOT RESTORED BY INSTRUCTION 
.'EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.'ERRONEOUS VALUE IS AT 'BADR6^' 

.'CHECK RQsZERO 

;***«t******ftftftftftTEST 17 - ERROR 5**********««r««* 

:R0 SHOULD BE ZERO 

.CHECK OTHER GENERAL REGISTERS 

.TEST R1 

;BR. IF ZERO 

;***ft***»*ft**tft*rEST 17 - ERROR 4»»***»*»««««»«« 

:R1 SHOULD BE ZERO 
;TEST R2 
;8R IF ZERO 

;ftft*ftt**********TEST 17 - ERROR S*************** 

;R2 SHOULD BE ZERO 
.TEST R3 



c5firB.P?t''"2l?ji2'42 Oifi^-" V tIsT INTERRUPTABILin Of -rnvRC" INSTRUCTION SEO 

^228 005606 00U01 BEO 68$ 'Kl^iLJEK^^^.TccT i7 . cbbm a..**..* 

22g 005610 moo6 ERROR 6 jsrs;^:;; ' 

^232 005612 02670A 173036 CHP FILL,R4 ;CHE« R4 IfJCHANGED 

2233 005616 OOUOl BEQ 69$ ;BR IF OK 

104007 ERROR 7 ;»»*«*»»»»»»*»»»TEST 17 - ERROR 7**»»*********«* 

0056^U 1U<.00/^ cnnun .^^ ^^^^^ ^^^^ CONTENTS Of LOCATION 'TILL" 

2236 005622 026705 173030 69$: CNP TABLE,R5 .-CHECK R5 UNCHANGED 

2237 005626 OOUOl BEO 70$ •S!*iLK*****.*TP<- 17 - »pnA m*************** 

2238 005630 104010 ERROR 10 jSrJISSrrTlulSjAiWTESfs i^JS^flS '"^ 

lit? 005632 012700 016710 '°*** «0V #8UF2.R0 '^Sif rStJETS^^J'SiViSSlit'**" ^ 

22A2 005636 105720 TST8 (R0)+ 'Il^^f°^^f^,",?En®^^^ 

^^A3 005640 OOUOl BEQ 71$ '55;*!! JIiii*iK?<T 17 - FDBM n*************** 

>^LL on'ifA? 104011 ERROR 11 ;»»»»***»»»*****TEST 17 - ERROR n 

iill ^^^^ LOWER BOUNOARy OF DESTINATION CHANGED 

2ptl ; SHOULD STILL EQUAL ZERO 

2248 005644 016702 173000 '^** HOV DSTLN.R2 .-CALCULATE THE NUMBER OF FILL 

??49 005650 166702 VtZTTO SUB SRCLN R2 ; CHARACTERS THAT SHOULD APPEAR IN DEST. 

^250 0056^4 010201 «0V R2.R1 .STORE TRANSFER BYTE COUNT IN R1 

?251 005656 122067 m772 T17E12: C/1PB (r6)+.FILL .-CHECK CHARACTERS IN DESTINATION 

/?52 005662 OOUOl BEO .+4 ;8« IF OK 

2253 005664 104012 ERROR 12 ;****»*»*»**»*»*TEST 17 - ERROR 12*************** 

^254 ;COW»ARE ERROR IN DESTINATION 

2ist ;R0 CONTAINS THE PC*1 OF THE BAD DESTINATION CHARACTER 

2257 005666 005301 DEC R1 ; DECREMENT BYTE COUNT 

2258 00567U 001372 BNE T17E12 ;BR. IF NOT FINISHED CHECKING 

2259 005672 016702 172750 HOV SRCAD.R2 .-PoInT R2 TO SOURCE STRING 

2260 005676 0 6701 72742 NOV SRCLN.R1 .-STORE TRANSFER BYTE COUNT IN R1 

2261 005702 122022 TE13: C«PB (R0)*:(R2)* .-CHECK CHARACTERS IN DESTINATION 

liti & ?8!S?i IKoR 13* ::S!aJ*K».»**»»TEST 17 - error 13 

5264 -COMPARE ERROR IN DESTINATION 

^RO CONTAINS THE PC«1 OF THE BAD DESTINATION CHARACTER 

2267 005710 005301 DEC R1 .-DECREMENT BYTE COUNT 

2268 005712 001373 BNE TE13 ;BR. IF NOT FINISHED CHECKING 

2269 0057 4 105720 TSTB (ROH ;TEh CONTENTS OF DEST. UPPER BOUNOARY 

2270 0557 6 OOUOl BEQ ENDT17 .-BR. IF STILL ZERO ^ ^^^^ 

??71 00S720 104014 ERROR U ;***************TEST 17 - ERROR U*************** 

II7J ^^^^^ ' -UPPER BOUNOARY OF OEST. CHANGED 

jiji : SHOULD STILL EQUAL ZERO 

2275 005722 106427 0002Q0 I'&V'^' MTPS #200 .-RESTORE PSU TO PRIORITY 7 

2276 0057|6 Ollm 17?734 172730 MOV TPSW.BTVECT .-RESTORE TRAP CATCHER 

2?77 
227% 

2281 :-ifEST*20** * TEST 'tMPC" «ITH S0URCE1 % 

fM jiTMjrTESrvERIFIK*TKr*tOMPAR^ EQUAL 



005734 
005736 
005742 
005744 
005746 
005750 
005752 
005754 
005760 
005762 
005766 
005770 



000004 

004567 006306 



y77777 
OOOOQO 
y77777 
000377 

004567 006364 



000204 
004767 
000277 
000244 



006216 



.HAIN. RACYll 50(1046) 22-JAN-82 
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2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 

IS! 

2304 
2305 

\^ 

2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 

iiix 
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T20 TEST "C«PC" WITH S0URCE1 ( S0URCE2 LENGTHS = 0 

•STRINGS WITH SOURCE LENGTHS EQUAL TO ZERO. 
*THE RESULT IS RO— >R3 ARE UNCHANGED, AND ALL CONDITION 
•CODES CLEAR EXCEPT Z=1. 



SEO 00- 3 



TST20: 



005772 076044 



005774 
006000 
006002 



006004 
006004 
006010 
006012 
006016 



006020 

m 

006026 



004767 006370 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



64$: 




026700 172620 

00U01 

104003 



026701 172612 
001401 
104004 

026702 172604 
001401 
104005 

026703 172576 
001401 
104006 



026704 172570 

001401 

104007 



65$: 

1$: 
2$: 
3$: 
4$: 



SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

CLZ 

CNPC 

JSR 
BEQ 
ERROR 



CWP 
BEO 
10V 
ERROR 



CHP 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



R5,PREP 
0 

NXn 

0 

Nxn 

377 

R5.XPSW 
204 

PC.6ENR 



PC.CICCC 
64$ 

1 



arSAVR6,SP 
65$ 

SP,a«BADR6 



SRCLN^RO 

1$ 

3 

SRCAO.RI 

2% 

4 

DSTLN,R2 
3$ 

5 

DSTAD,R3 

4$ 

6 



FILL.R4 
66$ 

7 



SET UP INSTRUCTION ARGUMENTS 

SOURCE 1 LENGTH 

SOURCE 1 ADDRESS 

S0URCE2 LENGTH 

S0URCE2 ADDRESS 

FILL CHARACTER 



SET UP GENERAL REGISTERS 

SET ALL CONDITION CODES, EXCEPT 

CLEAR Z 

EXECUTE "CMPC" INSTRUCTION 
CHECK PSW, GENERATE CONDITION CODES 
'••TEST 20 - ERROR 1***« 



PSW ERROR 
EXPECTED PSW IS STORED AT 'CXPPSW* 
ACTUAL PSW IS STORED AT 'YCODES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

**********««***TEST 20 - ERROR 2********« 
STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
ERRONEOUS VALUE IS AT 'BA0R6^' 



CHECK RO UNCHANGED 



******t*******tTEST 20 - ERROR 3< 
SRC1 LENGTH ERROR 
CHECK R1 UNCHANGED 



***************TEST 20 - ERROR 4« 
SRC1 ADDRESS ERROR 
CHECK R2 UNCHANGED 



•***t**t*«*****TEST 20 - ERROR 5* 
SRC2 LENGTH ERROR 
CHECK R3 UNCHANGED 



•*ft*ft***ft*****tTEST 20 - ERROR 6« 
SRC2 ADDRESS ERROR 



CHECK R4 UNCHANGED 
8« IF OK _ _ , 

•ftft*******«**ft*TEST 20 - ERROR 1 *************** ^ 
R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 



.MAIN. HACYll 30(10A6) 22-JAN-82 
uVKAIB.PII 22-JAN-82 08:^3 



F 4 

08:44 PAGE 45 , . 

120 TEST "CMPC" WITH SOURCE 1 & S0URCE2 LENGTHS = 0 



SEQ 0(K4 



23A0 
2541 

2344 

23A5 

23A6 

2347 

2548 

2549 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2561 

2362 

2363 

2364 

2365 

2366 

2>^7 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2580 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2589 

2390 

2391 

2392 

2393 

2394 

2J95 



006070 026705 

006074 001401 

006076 104010 

006100 



006100 000004 



006102 
006106 
006110 
006112 
0061 U 
006116 
006120 
006124 
006130 
006132 
006136 
006140 
006144 



004567 
000000 
^77777 
000004 
016710 
000377 
012700 
012720 
005020 
004567 
000210 
004767 
000277 



006146 076044 



006150 
006154 
0061 56 



004767 
001401 
104001 



172562 



006142 



016710 
^77777 

006206 

006040 



006214 



006160 

006160 023706 000676 

00616A 001403 

006166 010637 000700 

006172 104002 



006174 

006174 005700 

006176 001401 

006200 104003 

006202 026701 172440 



66$: 



67$: 



BEO 
ERROR 



TABLE. R5 

67$ 

10 



.•CHECK R5 UNCHANGED 
;BR IF OK 

;*tt**********t*rEST 20 - ERROR 10****-********** 

:RS SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 



West 21 TEST 'tnPC" with SOURCEI LENGTH'O t A NON-FILL CHARACTER IN SRC2 

•*************************************************************** 

iTHIS TEST VERIFIES THAT "CPPC" COMPARES S0URCE2 yiTH THE FILL 
^CHARACTER VHEN SOURCEI LENGTH IS ZERO.. 
*THE RESULT IS R0«0, R1 IS UNCHANGED, R2 EQUALS THE LENGTH 
*0F S0URCE2 SUB-STRING, R3 EQUALS THE POINTER TO S0URCE2 
*SUB-STRING, AND ALL CONDITION CODES CUM EXCEPT N^l. 



t§T21 : SCOPE 
JSR 



64$: 



65$: 



1$: 



MOV 

MOV 

CLR 

JSR 

.WORD 

JSR 

sec 

CMPC 

JSR 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



TST 
BEQ 
ERROR 



R5.PREP 
0 

NXN 

4 

BUF2 
377 

4eUF2,R0 

f1 77777, (R0)+ 

(R0)4 

R5,XPSU 

21 6 

PCGENR 



PC.CKCC 
64$ 

1 



afSAVR6,SP 
65$ 

SP,a«8ADR6 

2 



RO 
1$ 
3 



CMP 



SRCAD,R1 



.SET UP INSTRUCTION ARGIMENTS 

; SOURCEI LENGTH 

; SOURCEI ADDRESS 

;S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

'FILL CHARACTER 

•GENERATE S0URCE2 STRING STARTING 
;UITH TWO FILL BYTES 
;THEN TWO NON-FILL BYTES 
.•STORE EXPECTED PSW VALUE 

;SET UP GENERAL REGISTERS 
;SET ALL CONDITION CODES 

.•EXECUTE "CMPC" INSTRUCTION 

.•CHECK PSU. GENERATE CONDITION CODES 

;*ft*ft***********TEST 21 - ERROR I*************** 
;PSU ERROR 

.-EXPECTED PSW IS STORED AT^'tXPPSW" 
.•ACTUAL PSW IS STORED AT 'tCODES" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

• •ft**ft*********«[TEST 21 - ERROR 2***»********«** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6'^' 

.•CHECK RO-O 

;ft**************TEST 21 - ERROR 3*"*******»**«* 

;SRC1 LENGTH ERROR 
.•CHECK R1 UNCHANGED 
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2396 
2397 
2598 
2399 
2A00 
2401 
2A02 
?403 
2404 
2405 
2406 
^407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
241 S 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 



006206 
006210 

006212 
006216 
006220 

006222 
006226 
006230 

006232 
006232 
006236 
006240 

006242 
006246 
0062S0 

0C62S2 



006252 
006254 
006260 
62 
64 




00H01 
104004 

022702 
001401 
104005 

022703 
001401 
104006 



026704 
001401 
104007 

026705 
001401 
104010 



000004 
004567 
000007 
016310 



000012 
016710 
000377 
004767 
004567 

105037 
004567 
000210 

076044 

004767 
001401 
104001 



000002 
016712 

172416 
172410 



005770 



006000 
006022 



016715 
006026 

005660 



006034 



08:44 PAGE 46 
T21 TEST 



2S: 
3S: 
4S: 



66$: 
67$: 



G 4 

'CnPC" WITH SOURCEl LENGTH=0 ( A NON-FILL CHARACTER IN SRC2 SEO 0045 



TEST 21 - ERROR 4»"«»***» 

:SRC1 ADDRESS ERROR 
: CHECK R2*2 

;***************rEST 21 - ERROR 5««««««*»»»««t«« 

:SRC2 LENGTH ERROR 
.•CHECK R3seUF2«2 

;***************rEST 21 - ERROR 6******«******** 

;SRC2 ADDRESS ERROR 

.CHECK R4 UNCHANGED 
*BR IF OK 

'•***************TEST 21 - ERROR 7***********«*** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
;BR IF OK 

;***************TEST 21 - ERROR 10*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 



BEQ 


2S 


ERROR 


4 


C«P 


#2.R2 


BEO 


3$ 


ERROR 


5 


CMP 


#8UF 2+2. R3 


BEQ 


4S 


ERROR 


6 


CMP 


FILL.R4 


BEQ 


66S 


ERROR 


7 


CNP 


TABLE. R5 


BEQ 


67$ 


ERROR 


10 



*TEST 22 



TEST "CNPC" WITH SIL .LT. S2L AND SRC1.GT.SRC2, NON-COMPARE IN SOURCE 



*THIS TEST VERIFIES THAT '*CMPC" RETURNS THE CORRECT SUBSTRING IDENTIFIERS 

*UHEN S0URCE1 STRING AND S0URCE2 STRING DO NOT COMPARE. 

*THE RESULT IS RO EQUALS SRCI SUBSTRING LENGTH. R1 EQUALS , 

*SRC1 SUBSTRING POINTER. R2 EQUALS SRC2 SUBSTRING LENGTH. R3 EQUALS 

*SRC2 SUBSTRING POINTER. AND ALL CONDITION CODES CLEAR EXCEPT N^l. 



tST22: 



SCOPE 
JSR 



JSR 

JSR 

.yORD 

.UORD 

CLRB 

JSR 

.WORD 

JSR 

sec 

CMPC 

JSR 
BEQ 
ERROR 



R5.PREP 

BUF1 
12 

BUF2 
577 

PC.CLDST 
R5.GENSRC 

12 

BUF2 
a«BUF2*5 
R5.XPSW 
2l6 

PC.GENR 



PC.CKCC 



;SET UP INSTRUCTION ARGUMENTS 
.•SOURCEI LENGTH 
: SOURCE 1 ADDRESS 
:S0URCE2 LENGTH 
:S0URCE2 ADDRESS 
.•FILL CHARACTER 
.•CLEAR SOURCE 2 AREA 
.•GENERATE S0URCE2 STRING 



.•CREATE A NON-COMPARE CHARACTER IN SRC2 STRING 
.•STORE EXPECTED PSW ^ALUE 

.SET UP GENERAL REGISTERS 
.-SET ALL CONDITION CODES 

.EXECUTE 'tMPC" INSTRUCTION 

.CHECK PSW. GENERATE CONDITION CODES 



;ft*ft************TEST 22 - ERROR 1' 
;PSW ERROR 
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T22 TEST 



•C«PC" WITH S1L 



?45? 
2453 
2454 
2455 
2456 
24S7 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
24 75 
24 76 
2477 

2478 
A 79 
2480 
2481 
2482 
^483 
24fi4 
2485 
2486 
,'487 
2488 
2489 
24<?0 
2491 
2492 
249^ 
t'494 
2495 
2''.96 
^*,97 
2498 
2499 
2500 
.'501 
2502 
2503 
2504 
2505 
2506 
2507 



006340 
006340 
006344 
006346 
006352 



006354 
006354 
006360 
006362 

006364 
006370 
006372 

006374 
006374 
006400 
006404 
006410 
006412 
006414 
006420 
006422 
006424 
006424 
006426 
006430 



006432 
006434 
006436 



006440 
006444 
006450 
006452 
006454 



006456 
006462 
006466 
006470 
006472 



023706 
001403 
010637 
104002 



026704 
001401 
104003 

026705 
001401 
104004 



005067 
016704 
016705 
121415 
001004 
005267 
122425 
000772 

020401 
001401 
104005 



020503 
001401 
104006 



016704 
166704 
020400 
001401 
104007 



016704 
166704 
020402 
001401 
104010 



000676 
000700 



172304 



172264 



64S: 



172200 
172234 



172166 
172216 



65$: 



66S: 



67$: 
IS: 



2$: 



3S: 



4S: 



5S: 



6$: 



BEO 
MOV 
ERROR 



CAP 
BEO 
ERROR 

CW> 

BEO 
ERROR 



CLR 

nov 

MOV 

CMPe 

BNE 

INC 

CftPB 

BR 

CAP 
BEQ 

ERROR 



CMP 
BEQ 
ERROR 



MOV 
SUB 
CMP 
BEQ 
ERROR 



MOV 
SUB 
CMP 
BEQ 
ERROR 



a«SAVR6,SP 
65$ 

SP,a«8ADR6 

2 



FIU,R« 

66$ 

3 

TABLE, R5 
67$ 

4 



TEMP 

SRCAD,R4 

DSTA0.R5 

(R4),(R5) 

3$ 

TEMP 

(R4)+.(R5)* 
2$ 

RA«R1 
4$ 

5 



R5,R3 

5$ 

6 



SRCLN,R4 
TEMP-R4 

6$ 

7 



DSrLN,R4 

TEMP-R4 

R4,R2 

7$ 

10 



4 

.LT. S2L AND SRC1.6T.SRC2, NON-COMPARE IH SOURCE SEQ 0046 

EXPECTED PSU IS STORED AT 'tXPPSy" 
ACTUAL PSU IS STORED AT "CCODES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

«**************TEST 22 - ERROR 2*****«******«** 

STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
ERRONEOUS VALUE IS AT 'BADR6" 

CHECK R4 UNCHANGED 
BR IF OK 

•***ft**ft**ft****TEST 22 - ERROR 3***»*********** 

R4 SHOULD STILL EQUAL CONTENTS OF LOCATION TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

•********ft***»*TEST 22 - ERROR 4**«»"»**»»*»** 

R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 



;POINT R4 TO S0URCE1 ADDRESS 
;P0INT R5 TO S0URCE2 ADDRESS 
.COMPARE SOURCES 
:BR IF NOT EQUAL 

.-POINT STRINGS TO NEXT BYTES 

; CHECK ADDRESS I LENGTH DESCRIPTORS 
;CHECK R1. S0URCE1 ADDRESS 
:BR IF OK 

:**********ft**ft*TEST 22 - ERROR 5********« 

;S0URCE1 ADDRESS ERROR 

;R4 CONTAINS THE EXPECTED ADDRESS POINTER 

;R1 CONTAINS THE BAD VALUE 

; CHECK R3.S0URCE2 ADDRESS 

;BR IF OK 

;*ftft**ft***tft»***TEST 22 - ERROR 6**»****** 

;S0URCE2 ADDRESS ERROR 

;R5 CONTAINS THE EXPECTED ADDRESS POINTER 

;R3 CONTAINS THE BAD VALUE 

;CALCUUTE LENGTH OF SRCI REMAINDER 



.'CHECK RO. S0URCE1 LENGTH 
;BR IF OK 

;****ft**********TEST 22 - ERROR 7**********< 

.SOURCEI LENGTH ERROR 

;R4 CONTAINS THE EXPECTED LENGTH DESCRIPTOR 
;R0 CONTAINS THE BAD VALUE 
.-CALCULATE LENGTH OF SRC2 REMAINDER 

.-CHECK R2.S0URCE2 LENGTH 
;BR IF OK 

;*********ftft***ftTEST 22 - ERROR 10********** 

.-S0URCE2 LENGTH ERROR 

:R4 CONTAINS THE EXPECTED LENGTH DESCRIPTOR 
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2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 

m 

2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 

25^4 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 



006474 000240 



7$: 



NOP 



I 4 

XnPC" WITH S1L .LT. S2L AND SI)€1.6T.SIIC2. NON-C(MPARE I.< SOURCE 

;R2 CONTAINS THE BAD VALUE 



SEQ 0047 



006476 000004 

006500 004567 005544 

006504 000G07 

006506 016310 

006510 000Q07 

006512 016310 

006514 000377 

006516 004567 005622 

006522 000204 

006524 004767 005454 

006530 000277 

006532 000244 

006534 076044 

006536 004767 005626 

006542 001401 

006544 104001 



006546 

006546 023706 000676 

006552 001403 

006554 010637 000700 

006560 104002 



006562 

006562 10:>700 

006564 001401 

006566 104003 

006570 105702 

006572 001401 

006574 104004 

006576 016700 172044 

006602 066700 172036 

006606 020001 

006610 001401 

006612 104005 



•TEST 23 



TEST "CNPC" FOR $1L»S2L, S0URCE1«S0URCE2 STRINGS 



•PROPER TERMINATION OF THIS INSTRUCTION TEST IS THE 
•INDICATION THAT S0URCE1 STRING EQUALS S0URCE2 STRING: 
•RO t R2 EQUAL ZERO, R1 t R3 EQUAL THE ADDRESS^I OF THE 
•LSa OF THE SOURCE 1 t S0URCE2 STRINGS RESPECTIVELY. 
•AND ALL CONDITION CODES CLEAR, EXlEPT Z»1 



TST23: SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

CLZ 

CMPC 

JSR 
BEQ 
ERROR 



64$: 



65$: 

1$: 
2$: 



C«P 
BEQ 
NOV 
ERROR 



TSTB 

BEQ 

ERROR 

TSTB 

BEQ 

ERROR 

NOV 
ADD 
CNP 
BEQ 
ERROR 



R5.PREP 

BUF1 
7 

BUF1 
377 

R5,XPSU 
204 

PC.6ENR 



PC.CKCC 
64$ 

1 



arSAVR6,SP 
65$ 

SP.i«8ADR6 



RO 
1$ 

3 

R2 
2$ 
4 

SRCAD.RO 

SRCLN.RO 

RO.RI 

3$ 

5 



:SET UP INSTRUCTION ARGUMENTS 

.SOURCEI LENGTH 

:S0URCE1 ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

.•FILL CHARACTER 

.•STORE EXPECTED PSW VALUE 

.-SET UP GEr^ERAL REGISTERS 

:SET ALL CONDITION CODES. EXCEPT 

CLEAR "2" 
;EXECUTE "CNPC" INSTRUCTION 

.•CHECK RESULTS 

.•CHECK PSW. GENERATE CONDITION CODES 



;**************«TEST 23 - ERROR !•••••••••• 

•PSU ERROR 

•EXPECTED PSW IS STORED AT "EXPPSU" 
.•ACTUAL PSU IS STORED AT "CCODES" 

.-VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;*********ft****ftTEST 23 - ERROR 2*^^^^^^*^« 
.STACK POINTER NOT RESTORED BY INSTRUCTION 
;EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 

.•CHECK RO 
;BR. IF ZERO 

;***************TEST 23 - ERROR I********** 

:R0 SHOULD BE ZERO 
.•CHECK R2 
;BR. IF ZERO 

;t^^^***^^*^*^^*TEST 23 - ERROR 4*^***^^**« 

:R2 SHOULD BE ZERO 
.•CALCULATE ADDRESS^I OF LSB 

'CHECK R1 

•BR. IF EQUAL TO ADDRESS^I OF LSB 
:**************«TEST 23 - ERROR 5^****^**«* 
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2S64 

256*5 

2566 

2S67 

2568 

2569 

2570 

2571 

2572 

25^5 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

258/, 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

;613 

2614 

2615 

2616 

2M7 

2618 

^b^9 



006614 
006616 
006620 

006622 
006622 
006626 
006630 

006632 
006636 
006640 

006642 



020003 
001401 
104006 



026704 172026 
001401 
104007 

026705 172020 
001401 
104010 



006642 


000004 




006644 


004567 


005400 


006650 


000004 




006652 


016710 




006654 


000000 




006656 


}77777 




006660 


000377 


016710 


006662 


012700 


006666 


012710 


}77777 


006672 


012010 




006674 


004567 


005444 


006700 


000204 




006702 


004767 


005276 


006706 


000277 




006710 


000244 




006712 


076044 




006714 


004767 


005450 


006720 


001401 




006722 


104001 





006724 
006724 
006730 
006732 
006736 



023706 000676 
00U03 

010637 000700 
104002 



T23 
3S: 

40$: 

66$: 
67$: 
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•C«PC" FOR S1L=S2L, SOURCE I'SOURCE 2 STRINGS 



SCO 0048 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



R0.R3 

40i 

6 



F1LL.R4 
66$ 

7 

TABLE. R5 

67$ 

10 



:R1 SHOULD EQUAL (SRCAO)«(SRCLN) 
'CHECK R3 

•BR, IF EQUAL TO ADDRESS^I OF LSB 
;***************TEST 23 - ERROR 6< 
:R3 SHOULD EQUAL (DSTAD)«(DSTLN) 



.-CHECK R4 UNCHANGED 
;BR IF OK 

;**************ftTEST 23 - ERROR 7*************** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
'BR IF OK 

;.***************TEST 23 - ERROR lO***""*"***** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCAUON "TABLF" 



'•TEST 24 TEST "CHPC" WITH SOURCE2sO ( S0URCE1 CONTAINS ALL FILLS 

• THirTESrVERlFlErTHAT "CMPC" COMPARES S0URCE1 WITH THE FILL 

•CHARACTER WHEN S0URCE2 LENGTH IS ZERO. 

•RESULT IS EQUAL STINGS WHEN S0URCE1 IS ALL FILLS. 

tST24: SCOPE 



64$: 



JSR 



nov 
nov 
nov 

JSR 

.WORD 

JSR 

sec 

CLZ 

CHPC 

JSR 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



R5.PREP 
4 

BUF2 
0 

NXM 

377 

#BUF2.R0 
#1777^7. (RO) 
(RO)*.<RO) 
R5,XPSW 
204 

PCGENR 



PC.CKCC 
64$ 

1 



a#SAVR6,SP 
65$ 

SP.»V8ADR6 

2 



.•SET UP INSTRUCTION ARGUMENTS 

:S0URCE1 LENGTH 

.SOURCEI ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

;FILL CHARACTER 

.•GENERATE SOURCEI STRING WITH 

:ALL FILLS 

.•STORE EXPECTED PSW VALUE 

.-SET UP GENERAL REGISTERS 

;SET ALL CONDITION CODES. EXCEPT 

.•CLEAR Z 

.•EXECUTE "CMPC" INSTRUCTION 

.•CHECK PSW. GENERATE CONDITION CODES 



;***************TEST 24 - ERROR !**• 
*PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW 
•ACTUAL PSW IS STORED AT "CCODES'^ 

.-VERIFY STACK POINTER IS RESTORED 
:BR IF OK 

.•STORE BAD SP VALUE 
;***************TEST 24 - ERROR 2*«« 
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T24 TEST "cnPC" WITH 



2620 

?621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

?650 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

264? 

2643 

2644 

2645 

2646 

264 7 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 



006740 
006740 
006742 
006744 



006746 
006752 
006756 
006760 
006762 



006764 
006766 
006770 



006772 
006776 
007002 
007004 
007006 



007010 
007010 
007014 
007016 

007020 
007024 
007026 

007030 



005700 
001401 
104003 



016700 
066700 
020001 
001 40^ 
104004 



005702 
001401 
104005 



016702 
066702 
020203 
001401 
104006 



026704 
001401 
104007 

026705 
001401 
104010 



171674 
171666 



6SS: 



IS: 



171654 
171646 



2S: 



3$: 



171640 
171632 



4$: 

66$: 
67$: 



TST 
BEQ 
ERROR 



nov 

ADD 
CMP 
BEO 
ERROR 



TST 
BEQ 
ERROR 



WV 
ADD 
CMP 
BEO 
ERROR 



CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



RO 
1$ 
3 



SRCAD.RO 

SRCLN,RO 

RO.RI 

2$ 

4 



R2 
3$ 

5 



DSTAD,R2 

DSTLN,R2 

R2,R3 

4$ 

6 



F1U,R4 
66$ 

7 

TABLE, R5 

67$ 

10 



K 4 

SOURCE2-0 C SOURCE 1 CONTAINS ALL FILLS 

: STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED VALUE Of SP IS STORED AT ••SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6^' 

; CHECK ROsO 



SEO 0049 



;ft**************TEST 24 - ERROR 3*************** 

: SOURCE 1 LENGTH ERROR 
;R0 SHOULD BE ZERO 
.•CALCULATE ADDRESS OF LS6«1 

.•CHECK R1. S0URCE1 ADDRESS 
:8R IF OK 

;*****ft*********TEST 24 - ERROR 4*«»»*«»****««** 

: SOURCE 1 ADDRESS ERROR 

;R0 CONTAINS THE EXPECTED ADDRESS POINTER 
.•R1 CONTAINS THE BAD VALUE 
.•CHECK R2s0 
'BR IF Ok 

;ft**************TEST 24 - ERROR S*************** 

;S0URCE2 LENGTH ERROR 
;R2 SHOULD BE ZERO 

.■CALCULATE ADDRESS OF LSS^l 

.•CHECK R3.S0URCE2 ADDRESS 
:BR IF OK 

;***************TEST 24 - ERROR 6***********»*** 

.•SOURCE? ADDRESS ERROR 

:R2 CONTAINS THE EXPECTED ADDRESS POINTER 

;R3 CONTAINS THE BAD VALUE 

; CHECK R4 UNCHANGED 
;8R IF QK 

;***************TEST 24 - ERROR 7**»************ 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.-CHECK R5 UNCHANGED 
:BR IF OK 

;***************TEST 24 - ERROR 10*************" 

;RS SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 



•TEST 25 



TEST "CHPC" WITH S0URCE2 LENGTH EQUAL TO ZERO 



•PROPER TERMINATION OF THIS INSTRUCTION TEST IS RIMO 
•EQUAL ADDRESS t LENGTH OF UNEQUAL S0URCE1 STRING, 
•R2 EQUALS SOURCE^ ADDRESS. R2 EQUALS ZERO. AND ALL 
•CONDITION CODES CLEAR.. EXCEPT Nsl 



007030 000004 
007032 004567 
007036 000004 



005212 



tST25: 



SCOPE 
JSR 



R5.PREP 
4 



.SET UP INSTRUCTION AROfCNTS 
: SOURCE 1 LENGTH 



.HAIN. ^CYll 30(1046) 22-JAN-82 
CVKAIB.P11 22-JAN-82 08:43 



08:44 PAGE 51 
T25 TEST 



L 4 



'CnPC" WITH S0UftCE2 LENGTH EQUAL TO ZERO 



SEQ 0050 



2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

^'16 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2/'25 

2726 

2727 

272% 

272^ 

2730 

2'31 



007040 
007042 
007044 
007046 
007050 
007054 
007060 
007062 
007066 
007070 
007074 
007076 



007102 
007106 
007110 



007112 
007112 
007116 
007120 
007124 



007126 
007126 
007132 
0071 34 

007136 
007142 
007144 

007146 
007150 
007152 

007154 
007160 
007162 

007164 
007164 
007170 
007172 

007174 
007200 
007202 

007204 



016710 

'm 

01??00 016710 
012720 M7777 
005020 

004567 005256 



000201 
004767 
000277 
000250 



005110 



007100 076044 



004767 005262 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



022700 000002 
001401 
104003 

022701 016712 
001401 
104004 

005702 
001401 
104005 

026703 171472 

001401 

104006 



64$: 



026704 
001401 
104007 

026705 
001401 
104010 



171464 



171456 



65$: 

1$: 
2$: 
3$: 
4$: 

66$: 

67$: 



NOV 

NOV 

CLR 

JSR 

.WORD 

JSR 

sec 

CLN 

CHPC 

JSR 
BEQ 
ERROR 



BUF2 
0 

NXM 

377 

#8UF2.R0 
#1777f7, (RO)* 
(RO)* 
RS.XPSW 
20l 

PC.GENR 



PCCKCC 
64$ 

1 







BEO 


65$ 


NOV 


SP,»V8ADR6 


ERROR 


2 


CNP 


#2,R0 


BEO 


1$ 


ERROR 


3 


CMP 


#8UF2+2,R1 


BEO 


2$ 


ERROR 


4 


TST 


R2 


BEO 


3$ 


ERROR 


5 


CNP 


DSrAD,R3 


BEO 


4$ 


ERROR 


6 


CNP 


FILL,R4 


BEO 


66$ 


ERROR 


7 


CNP 


TABLE. R5 


BEO 


67$ 


ERROR 


10 



;S0URCE1 ADDRESS 
;S0URCE2 LENGTH 
;S0URCE2 ADDRESS 
.-FILL CHARACTER 

.•GENERATE SOURCE 1 STRING STARTING 
;UITH TWO FILL BYTES 
;THEN TWO "ZERO" BTYES 
; STORE EXPECTED PSW VALUE 

:SET UP GENERAL REGISTERS 

:SET ALL CONDITION CODES. EXCEPT 

CLEAR N-1 
.•EXECUTE "CNPC" INSTRUCTION 

.•CHECK RESULTS 

.•CHECK PSW. GENERATE CONDITION CODES 

;***********>***TEST 25 - ERROR !*******••*•**** 
•PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
.•ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 25 - ERROR 2*************** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.'ERRONEOUS VALUE IS AT 'BADR6" 



.•CHECK R0=2 

;***************TEST 25 
.•SRC1 LENGTH ERROR 
.•CHECK R1«BUF242 

;ft**************TEST 25 

:SRC1 ADDRESS ERROR 
.-CHECK R2=0 

;***************TEST 25 

;SRC2 LENGTH ERROR 
.•CHECK R3::SRC2 ADDRESS 

;***************TEST 25 - ERROR 6« 
:SRC2 ADDRESS ERROR 

.•CHECK R4 UNCHANGED 
;8R IF OK 

;***************TEST 25 



- ERROR 3»*»**»«****«««« 



• ERROR 4*************** 



- ERROR 5»**»*»»***«*««« 



- ERROR 7*************** 



:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
'BR IF OK 

'••♦•••••••••••••TEST 25 - ERROR lO*************** . 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE' 
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2732 
2733 
275A 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 

?745 007204 

2746 007206 

2747 007212 
^748 007214 

2749 007216 

2750 007220 

2751 007222 

2752 007224 

2753 007230 

2754 007232 
cV55 007234 

2756 007240 

2757 007244 

2758 007246 

2759 007252 

2760 007254 
2761 
2762 
2763 

2764 007260 

2765 007264 

2766 007266 
2767 

2768 
2769 

2770 007270 

2771 007270 

2772 007274 

2773 007276 

2774 007302 
2775 

2776 
2777 

2776 007304 

2779 007304 

2780 007310 

2781 007315 
2782 

2783 007314 

2784 007320 

2785 007322 
2786 

2787 007324 



n 4 

08:44 PAGE 52 

T25 TEST "CNPC" WITH S0URCE2 LENGTH EQUAL TO ZfRO 



West 26 test "chpc" for sourcei less than sources 

iproper*terslnation of this instruction test is 
*r0tr2 equal the remaining length of the unequal bytes 
*0f the source us0urce2 strings, r1tr3 equal the address 
*0f the first unequal bytes in the sourcei and sources 
^strings, and condition code cn^i and v,z-0 



SEO 0051 



000004 
004567 
000007 
016710 
000003 
016310 
000377 
004567 
000007 
016710 
105037 
004567 
000211 
004767 
000251 
000266 



007256 076044 



004767 
001401 
104001 



005036 



005074 



016712 
005100 

004732 



005104 



TST26: 



023706 000676 
001403 

010637 000700 
104002 



026704 171344 
001401 
104003 

026705 171336 
001401 
104004 



64S: 



65S: 

66S: 
67S: 



SCOPE 
JSR 



JSR 
.WORD 
.WORD 
CLR8 
JSR 
.WORD 
JSR 

♦CLC.'CLN 
^SEZiSEV 

CMPC 

JSR 
BEQ 
ERROR 



R5,PREP 

BUF2 
3 

BUF1 
377 

RS.GENSRC 

BUF2 
a«8UF2^2 
R5.XPSU 
2l1 

PC.GENR 



PC.CKCC 
64S 

1 



C«P 
BEQ 
MOV 
ERROR 



CHP 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



arSAVR6«SP 
65S 

SP,a^ADR6 

2 



F1LL,R4 
|6i 

TABLE, R5 

67$ 

4 



;SET UP INSTRUCTION ARGUMENTS 
;S0URCc1 LENGTH 
; SOURCEI ADDRESS 
;S0URCE2 LENGTH 
;S0URCE2 ADDRESS 
:FILL CHARACTER 
.•GENERATE SOURCEI STRING 
; STRING LENGTH 

; STRING ADDRESS . , . 

.•PLACE A NON-COMPARE CHARACTER IN SOURCEI STRING 
.•STORE EXPECTED PSU VALUE 

.-SET UP GENERAL REGISTERS 
.•CLEAR CONDITION CODES CtN 
;SET CONDITION CODES ZftV 
.•EXECUTE "CMPC" INSTRUCTION 

.•CHECK RESULT 

.•CHECK PSU. GENERATE CONDITION CODES 



;*************«*TEST 26 - ERROR 1**tt»»»t»t».tt* 
'PSU ERROR 

•EXPECTED PSU IS STORED AT 'tXPPSU" 
.•ACTUAL PSU IS STORED AT "CCODES" 

.■VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

•*************«*TEST 26 - ERROR 2******^******** 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
;EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6'^' 

.CHECK R4 UNCHANGED 

• M IP OK. 

:.?!;.i..^.t.....TEST 26 - ERROR 3"""***".VV .. 
•R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.CHECK R5 UNCHANGED 
;BR IF OK 

t******t*******TEST 26 - ERROR 4*»******"V.I" .. 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION ''TABLE" 
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T26 TEST "C/VC" FOR S0URCE1 LESS THAN SOURCE? 



SEQ 



2788 

2789 
2790 
2791 
2792 
2793 
279A 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
280A 
<'805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
28U 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
28^9 
2830 
2851 
2832 
2833 
>8J4 
2835 

11 



007324 
007324 
007350 
007354 
007340 
007542 
007544 
007550 
0x17552 
007354 
007554 
007356 
007360 

007562 
007564 
007566 

007570 
007574 
007400 
007402 
007404 

007406 
007412 
007416 
007420 
007422 

007424 



007424 
007426 
007432 
)07434 
>7456 
)744Q 
)7442 
)7444 
7450 
7454 
)745< 
>74< 
74< 



005067 
016704 
016705 
121415 
001004 
005267 
122425 
000772 

020401 
001401 
104005 

020505 
001401 
104006 

016704 
166704 
020400 
001401 
104007 

016704 
166704 
020402 
001401 
104010 



000004 
004567 
Q00Q10 
Q16310 
00001 I 

k 



171554 
171312 
171312 



171554 



171250 
171304 



171236 
171266 



004616 



004626 
004650 



177777 
004654 

004506 



1$: 
2$: 

3S: 

4$: 
5$: 

6$: 

40$: 



CLR 
MOV 
«0V 

cnpe 

BNE 

INC 

cnpe 

BR 

CMP 
BEO 
ERROR 

CMP 
BEO 

ERROR 

nov 

SUB 
CMP 
BEQ 
ERROR 

NOV 
SUB 
CHP 
BEO 
ERROR 



TEW 

SRCAD,R4 
DSTAD,R5 
(R4),(R5) 
3S 

TEMP 

CR4)*.(R5)* 
2$ 

R4,R1 
4S 

5 

R5,R3 

5$ 

6 

SRCLN,R4 
TEMP.R4 
R4,R0 
6S 

7 

DSTLN,R4 
TEMP-R4 
R4.R2 
40i 

10 



.•CHECK OTHER REGISTERS 

;POINT R4 TO S0URCE1 ADDRESS 
.POINT R5 TO S0URCE2 ADDRESS 
.COMPARE SOURCES 
;BR. IF NOT EQUAL 

.•POINT STRINGS TO NEXT BYTES 

.•CHECK ADDRESS REGISTERS 
.•CHECK R1 (S0URCE1 STRING) 



;»******t***t*t*TEST 26 - ERROR 5*** 
;SRC1 ADDRESS ERROR 
.•CHECK R3 (S0URC2 STRING) 
:BR IF EQUAL 

;ft****t*****t*ttTEST 26 - ERROR 6**« 

:SRC2 ADDRESS ERROR 

.•CALCULATE LENGTH OF SRC1 REMAINDER 

.•CHECK RO (SRC1 LENGTH) 
;BR. IF EQUAL 

;***************TEST 26 - ERROR 7**< 
;SRC1 STRING LENGTH ERROR 
.•CALCULATE LENGTH OF SRC2 REMAINDER 



.CHECK R2 (SRC2 LENGTH) 
;BR. IF EQUAL 

;*t*****tk*******TEST 26 - ERROR 10* 
:SRC2 STRING LENGTH ERROR 



iTEST 27 TEST "CMPC" WITH S0URCE1 LENGTH .6T. S0URCE2 LENGTH t SOURCE USOUPC 2 

iTHirfESrVE«Fjn*THAr*'CMPC'' INDICATES EQUAL STRINGS WHEN THE 
*STRIN6 LENGTHS ARE NOT EQUAL BUT THE EXCESS OF THE LONGER 
*STRIN6 CONTAINS ALL FILLS. 



th27: 



SCOPE 
JSR 



JSR 

JSR 

.WORD 

.yORD 

MOV 

JSR 

.yORD 

JSR 



RS.PREP 
10 

w 

PC.CLDST 
R5,6ENSRC 
10 



#177777. (RD* 
RS.XPSU 

PC.6ENR 



:SET UP INSTRUCTION ARGUMENTS 

; SOURCE 1 LENGTH 

;S0URCE1 ADDRESS 

;S0URCE2 LENGTH 

•SOURCES ADDRESS 

;FILL CHARACTER 

.CLEAR SQURCE2 AREA 

•GENERATE S0URCE2 STRING 

.•MAKE FIRSTTO BYTES IDENTICAL 

;T0 S0URCE1 STRING AND THE 

•LAST TWO BYTES EQUAL TO FILL CHARACTER 

.•STORE EXPECTED PSW VALUk 

.SET UP GENERAL REGISTERS 
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2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

287'j 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 



007476 
007500 



000277 
000244 



007502 076044 



007504 
007510 
007512 



007514 
007514 
007520 
007522 
007526 



007530 
007530 
007532 
007534 

007536 
007542 
007546 
007550 
007552 

007554 
007556 
007560 

007562 
007566 
007572 
007574 
007576 

007600 
007600 
007604 
007606 

007610 
007614 
007616 

007620 



004767 004660 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



005700 
001401 
104003 



016700 
066700 
020001 
001401 
104004 

005702 
001401 
104005 

016702 
066702 
020203 

ooup; 

104006 



026704 
001401 
104007 

026705 
001401 
104010 



171104 
171076 



171064 
171056 



171050 
171042 



P 5 
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T27 TEST "C«PC" WITH S0URCE1 

sec 

CLZ 



64$: 



65S: 
1$: 

2S: 
3S: 

4$: 

66S: 
^7S: 



cw»c 

JSR 
BEQ 
ERROR 



BEQ 

nov 

ERROR 



TST 
BEO 
ERROR 

NOV 
ADD 
CHP 

BEO 
ERROR 

TST 
BEQ 
ERROR 

NOV 
ADO 
CNP 
BEO 
ERROR 



CNP 
BEO 
ERROR 

C«P 
BEO 
ERROR 



PC.CKCC 
64$ 

1 



a«SAVR6,SP 
65$ 

SP,a«8ADR6 

2 



RO 
1$ 
3 

SRCAD.RO 
SRCLN.RO 
RO.RI 
2$ 

4 

R2 
3$ 

5 

DSTAD,R2 

0STLN,R2 

R2,R3 

4$ 

6 



F1LL,R4 
66$ 

7 

TABLE. RS 

67$ 

10 



LENGTH .GT. S0iJRCE2 LENGTH t SOURCE 1=S0URC2 

;SET ALL CONDITION CODES, EXCEPT 
.CLEAR Z 

.•EXECUTE 'tNPC" INSTRUCTION 

; CHECK PSU. GENERATE CONDITION CODES 

;ftftft*******ftft*ft*TEST 27 - ERROR I*************** 

*PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
.•ACTUAL PSU IS STORED AT "CCODES" 

; VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•STORE BA» SP VALUE 

;***«***< «**ft***TEST 27 - ERROR 2*************** 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 

.•CHECK ROsO 

;ft**************TEST 27 - ERROR 3*************** 

;S0URCE1 LENGTH ERROR 
.•CALCULATE ADDRESS OF LSS^I 

.CHECK R1. S0URCE1 ADDRESS 

;***********ft***TEST 27 - ERROR 4»»**»*»*******« 

.SOURCEI ADDRESS ERROR 
.•CHECK R2=0 

;***************TEST 27 - ERROR 5********«*****« 

:S0URCE2 LENGTH ERROR 
.•CALCULATE ADDRESS OF LSB^I 

; CHECK R3.S0URCE2 ADDRESS 

;ft***********ft**TEST 27 - ERROR 6*************** 
;S0URCE2 ADDRESS ERROR 

.•CHECK R4 UNCHANGED 
;BR IF OK 

;.*ft**««*t*******TEST 27 - ERROR 7*****»*»**VJ** .. 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.-CHECK R5 UNCHANGED 
*6R IF OK 

;***************TEST 27 - ERROR lO*************** 
;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE 



SEQ 0053 



.••TEST 30 TEST THAT BAD "SEARCH" OPCODES TRJP^^^^^^^ 

jifHIS*TEST*VERlFIES THAT OPCODES 076045— >0760«7 TRAP TO 



Cv"?i!'B.P?f""2l?j-lSi|J Ol^li"^*' "-'W"^ fhr THAT ■««CH"'oPC»€S T«P 



SEQ 005^ 



?900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

29U 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

292A 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

29SI 

2954 

?955 



007620 
007622 
007626 
007630 
007632 
007634 
007636 
007640 
007646 
007654 
007662 



007670 
007674 



007676 
007700 
007704 
007712 
007714 



000004 
004567 
016310 
000010 
016710 
000010 
000377 
012737 
013767 
012737 
004767 



007666 076045 



016700 
104001 



012626 
005267 
022767 
001363 
016737 



•LOCATION 10. 



004422 



076045 007666 

000010 171032 

007676 000010 
004316 



}77772 



177762 

076050 177754 
170766 000010 



JSR 



*************************************************************** 

t§T30: SCOPE _ 

;SET UP IMSTRUCTION AROHENTS 

; SOURCE LEN6TH 
.SOURCE ADMESS 
;OESriNATION LENGTH 
.DESTINATION ADDRESS 
'FILL CHARACTER 

•STORE THE FIRST BAD MOVE OPCODE 
.-SAVE ILLEGAL INSTRUCTION TRAP VECTOR 
;POINT ILLEGAL INSTRUCTION VECTOR TO CONTINUE TEST 
;SET UP GENERAL REGISTERS 



REP30: 



MOV 

nov 

NOV 

JSR 



R5,PR£P 

BUF1 

10 

BUF2 

10 

377 

#076045. a#8D30 
ftVIO. TEMPI 
#T30CONT.a#10 
PC.GENR 



BD30: .WORD 076045 



NOV 
ERROR 



T30CONT:«OV 
INC 
CNP 
BNE 
NOV 



BD30.ro 
1 



(SP)*.(SP)+ 
BD30 

#076050.BD30 
REP30 
TEMPI. a#io 



.•EXECUTE BAD SEARCH INSTRUCTION 

.•STORE BAD OPCODE THAT DID NOT TRAP 
;***************rEST 30 - ERROR 1 
.BAD SEARCH OPCODE DID NOT TRAP 
;R0 CONTAINS THE BAD OPCODE 

.RESTORE THE STACK POINTER AFTER THE TRAP 
.INCREMENT INSTRUCTION OPCODE 
.FINISHED WITH BAD SEARCH OPCODES? 
'8R IF NOT 

•RESTORE ILLEGAL INSTRUCTION TRAP VECTOR 



007722 000004 

007724 004767 004462 

007730 005767 770750 

007734 001124 

007736 004567 004306 

007742 000400 

007/44 016310 

007746 000400 

007750 016310 

00775c^ 000377 

007754 012767 010042 170706 

007762 012777 014506 170674 

007770 005077 170672 

007774 004767 004462 

010000 013777 000554 170654 



•TEST 31 TEST INTERRUPTA8ILITY OF "CMPC" INSTRUCTION 

•**********••*•••##*•***•*************•****••#*•*•**••*•***••••• 

iTHIS TEST INTERRUPTS THE EXECUTION OF THE "CMPC" 
•INSTRUCTION, RESUMES THE INSTRUCTION AFTER THE 
•INTERRUPT. VERIFIES THE RESULT. THE PROPER RESULT 
•IS FOR S0URCE1sS0URCE2. 

;•»»••••••••*••••♦•••♦••»•••»••••••*•*••**•••••••••••••••*•••••* 



TST31 : 



SCOPE 

JSR PC.SKPINT 

TST TEMP 
BNE TST32 
JSR R5-PREP 

406 

BUF1 

400 

BUF1 

377 

MOV f CMC, PC I 
MOV fINTR.aTVECT 
CLR aTPSU 
JSR PC.TDONE 
MOV »rSNULL.aTBUF 



;SET FLAG — TEMP- WHICH INDICATES IF 

.•NEXT TEST IS TO BE EXECTED NEXT. 

.•CHECK IF -TEMP- IS SET 

.TEMP IS SET, GO TO NEXT TEST 

.SET UP INSTRUCTION ARGUMENTS 

; SOURCE 1 LENGTH 

;S0URCE1 ADDRESS 

:S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

:FILL CHARACTER 

.•STORE PC OF TEST INSTRUCTION 

.•POINT TTY VECTOR TO INTERRUPT ROUTINE 

.•ALLOW INTERRUPTS AFTER TTY INTERRUPT 

;SENI> CARRIAGE RETURN 
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T31 TEST 



D S 

INTERRUPTABILirr Of *t«PC" INSTRUCTION 



SEO 0055 



2956 
2957 
2958 
2959 
2960 
2961 



2964 
2965 
2966 

2967 
2968 
2969 
2970 
2971 
?972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
298d 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
^997 
2998 
2999 
WO 
5001 
3002 
5003 
3004 
5005 
5006 
)7 



010006 
010012 
010014 
010020 
01 00 J 
01003 
01002, 
01004( 



004567 004332 
000004 



004767 
010637 
)0277 
)0244 



000000 
000100 170632 
004152 
000676 



010042 076044 



3009 
3010 
3011 



010044 
010050 
010056 
010060 
010066 
010074 
010076 



010100 
010100 
010104 
010106 
010112 



010114 
010114 
010116 
010120 

010122 
010124 
010126 

010130 
010134 
010140 
010142 
010144 

010146 
010150 
010152 

010154 
010154 
010160 
010162 

010164 
010170 



REPC«C! 



C«C: 



106767 170622 

032777 000100 170602 

001363 

042767 177400 170604 
023767 000674 170576 
001401 
104001 



023706 000676 
001403 

010637 000700 
104002 



105700 
001401 
104003 

105702 
001401 
104004 

016700 170512 
066700 170504 
020001 
001401 
104005 

020003 
001401 
104006 



026704 170474 
001401 
104007 

026705 170466 
001401 



64$: 



65$: 

1$: 
2$: 

3$: 
40$: 

66$: 



JSR 

.WORD 

HTPS 

BIS 

JSR 

nov 

sec 

CLZ 
C«PC 



HFPS 

BIT 

BNE 

BIC 

C«P 

BEQ 

ERROR 



C«P 
BEQ 

nov 

ERROR 



TSTB 

BEQ 

ERROR 

TSTB 

BEQ 

ERROR 

mv 

ADD 
C«P 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 

C«P 
BEQ 



R5,XPSU 

04 

#0 

#100,aTCSR 

PCGENR 

SP,afSAVR6 



C CODES 
#100,aTCSR 
REPCnC 

#1 77400, CCODES 



.•STORE EXPECTED PSW VALUE 

:SET PSW TO ALLOW INTERRUPTS 
.ENABLE TTY INTERRUPTS 
;SET UP GENERAL REGISTERS 

;COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 
;SET ALL CONDITION CODES* EXCEPT 
CLEAR Z»1 

.•EXECUTE "CMPC" INSTRUCTION 

.•CHECK RESULTS 
'STORE THE PSW 

•IF INTERRUPT ARE DISABLED. THE INSTRUCTION WAS NOT INTE 
.•BR t DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 
.'CLEAR ALL UNUSED BITS 



a#EXPPSW.CCODES ; CHECK PSW AGAINST EXPECTED VALUE 



64$ 

1 



a#SAVR6.SP 
65$ 

SP.»rBADR6 

2 



RO 
1$ 
3 

R2 
2$ 
4 

SRCAD.RO 
SRCLN.RO 
R0.R1 
3$ 

5 

R0.R3 

40i 

6 



FILL.R4 
^6$ 

TABLE. R5 
67$ 



;BR. IF EQUAL 
;ft**************TEST 31 - ERROR 1*t*t***t*t***t* 

•PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
.ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
:BR IF OK 

.•STORE BAD SP VALUE 

;***************TEST 31 - ERROR 2*************** 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.'ERRONEOUS VALUE IS AT 'BADR6" 

.'CHECK RO 
.'BR. IF ZERO 

;***************TEST 31 - ERROR 3*************** 

;R0 SHOULD BE ZERO 
.CHECK R2 
;BR. IF ZERO 

;****ft****ft*ft***TEST 31 - ERROR 4*************** 

;R2 SHOULD BE ZERO 
.'CALCULATE ADDRESS^I OF LS8 



'CHECK R1 

•BR. IF EQUAL TO ADDRESS«1 OF LSB 
;***************TEST 31 - ERROR $*•••••••••••••• 

;R1 SHOULD EQUAL (SRCAD)«(SRCLN) 
•CHECK R3 

I'BR. IF EQUAL TO^ADDRESS*! OF LS8 
;***************TEST 31 - ERROR 6*************** 

;R3 SHOULD EQUAL (DSTAD)«(DSTLN) 

.CHECK R4 UNCHANGED 
*BR IF OK 

:***************TEST 31 - ERROR 7*************** 

•R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
; CHECK RS UNCHANGED 
:6R IF OK 
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3012 

3013 

50H 

5015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

5032 

3033 

3034 

3035 

3036 

3037 

5038 

3039 

3040 

3041 

5042 

3043 

5044 

5(V5 

3046 

30<7 

5048 

3049 

3050 

5051 

$052 

5055 

5054 

3055 

5056 

5057 

5058 

^5059 

5060 

3061 

5062 

5063 

5064 

5065 

5066 

5067 



010172 104010 
01017' 

010174 106427 

010200 016777 



010206 
010210 
010214 
010216 
010220 
010222 
010224 
010226 
010$32 
010234 
010240 



000004 
004567 
000010 
016310 
y77777 
m777 
000004 
004567 
000200 
004767 
000277 



010242 076040 



010244 
010250 
010252 



01025A 
010254 
01026C 
010262 
010266 



010270 
010270 
010274 
010276 

010300 
010304 
010506 

010510 
010510 



004767 
001401 
104001 



023706 
001403 
010637 
104002 



026704 
001401 
104003 

026705 
001401 
104004 



000200 

170462 170456 



44 PAGE 
T31 



67$: 



57 

TEST 



E 5 

1NTERRUPTA81LITY OF "CHPC" INSTRUCTION 



SEQ 0056 



ERROR 10 



«TPS 



#200 

TPSy,8TVECT 



;***************TEST 31 - ERROR 10*«**»*****»»*** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "lABLE* 

; RESTORE PSW TO PRIORITY 7 
.RESTORE TRAP CATCHER 



iTEST 32 TEST 'tOCC" INSTRUCTION WITH SEARCH CHARACTCR IN SOURCE 

ipROP£R*TERSlliATION OF THIS TEST IS R1 EQUALS THE 
*AODRESS OF THE FIRST OCCURRANCE OF THE 'XHARACTER" 
*IN THE SOURCE STRING, RO EQUALS REMAINING LENGTH 
*0F THE SOURCE STRING, AND ALL CONDITION CODES CLEAR. 



004034 

004112 
003744 

004120 



tST32: 



000676 
000700 



170360 
170352 



64$: 



016705 170332 



65$: 

66$: 
67$: 



SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

LOCC 

JSR 
BEO 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



R5,PREP 

10 
BUF1 

Nxn 
Nxn 

4 

R5.XPSU 
206 

PCGENR 



PC.CKCC 
64$ 

1 



a#SAVR6,SP 
65$ 

SP. a«6ADR6 



CMP FILL,R4 

BEQ 66$ 

ERROR 3 

CMP TABLE, R5 

BEQ 67$ 

ERROR 4 



;SET UP INSTRUCTION ARGIMENTS 
; SOURCE LENGTH 

.•SOURCE ADDRESS , . , 

.-STORE NON-ZERO VALUES TO TEST R2 & R5 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANCJ CHARACTER 
.•STORE EXPECTED PSW VALUE 

;SET UP GENERAL REGISTERS 
.-SET ALL CONDITION CODES 
.•EXECUTE 'lOCC" 

.•CHECK RESULTS 

; CHECK PSW. GENERATE CONDITION CODES 



V* 



MOV 



SRCAD,R3 



;******o*******TEST 32 - ERROR 1»ttt**ttt* 

;PStf ERROR 

.•EXPECTED PSW IS STORED AT "EXPPSW 
.•ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE . 

;************«**TEST 32 - ERROR 2*************** 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT •'SAVR6" 
; ERRONEOUS VALUE IS AT 'BADR6^' 

.-CHECK R4 UNCHANGED 
;BR IF OK 

;******o*******TEST 32 - ERROR 5«***»»"»»**'** .. 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
: CHECK R5 UNCHANGED 

iS.i^K TEST 32 - ERROR 4***»*«*""*"« 

;RS SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE 

.-LOCATE "CHARACTER" 
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T32 TEST "LOCC" INSTRUCTION WITH SEARCH CHARACTER IN SOURCE 



SEQ 0057 



ni2 

5115 
[lU 
5115 

ni6 

J11> 
|l18 
[l19 

]lfl 

m 



010314 
010320 
010324 
010326 
010330 
010332 
010334 
01C336 
010340 

010342 
010344 
010346 

0103S0 



3068 
5069 
3070 
3071 
3072 
3073 
3074 
3075 
%76 
3077 
3078 
3079 
3080 
3081 

13 
3084 
3085 
3086 
3087 
3088 
~ W 
.X) 
3091 



010350 

3096 010352 

3097 010356 

3098 010360 

3099 010362 

3100 010364 

3101 010366 

3102 010370 

3103 010374 

3104 010376 

3105 010402 
3106 

3107 010404 



. 010406 

110 010412 

111 010414 



)10416 
)10416 
)10422 
)10424 
10430 



010432 



016702 170324 
T^1367 170330 



1403 
105723 
005302 
001372 
020200 
001401 
104005 

020301 
001401 
104006 



68$: 

69S: 
70$: 
71$: 



nov 

CWB 

BEO 

TST8 

DEC 

BNE 

C«P 

SEQ 

ERROR 

C«P 
BEQ 
ERROR 



SRCLN,R2 

(R3),FILL 

69$ 

(R3) + 

R2 

68$ 

R2.R0 

70i 

5 

R3.R1 
71 i 
6 



.POINI TO NEXT SrTE 

.DECREMENT BYTE COUNT 

;BR, IF NOT FINISHED 

; CHECK RO-REMAINING SOURCE LENGTH 

;***************TEST 32 - ERROR 5* 

.•LOCATE LENGTH ERROR 

;CHECK R1=ADDRESS OF CHARACTER 

;*********ft***ft*rEST 32 - ERROR 6* 
.•LOCATE ADDRESS ERROR 



♦TEST 33 



TEST 'tOCC" INSTRUCTION WITH SEARCH CHARACTER IN SOURCE. SL .6T. 100000 



♦PROPER TERMINATION Of THIS TEST IS R1 EQUALS THE 
♦ADDRESS OF THE FIRST OCCURRANCE OF THE 'XHARACTER" 
♦IN THE SOURCE STRING. RO EQUALS REMAINING LENGTH 
♦OF THE SOURCE STRING. AND ALL CONDITION CODES CLEAR 
♦EXCEPT N=1. 



000004 

004567 003672 
100010 
016310 
m777 

mm 



567 003750 
210 

767 003602 
277 

076040 

Q04767 003756 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



tST33: SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 



64$: 



LOCC 

JSR 
6EQ 
ERROR 



CMP 
BEO 
MOV 
ERROR 



R5.PREP 

106010 

BUF1 

NXM 

NXM 

4 

R5 .XPSU 
216 

PC.6ENR 



PC.CKCC 
64$ 

1 



;SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 

.•SOURCE ADDRESS , ^ , 

.•STORE NON-ZERO VALUES TO TEST R2 I R3 
: UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANC3 CHARACTER 
.•STORE EXPECTED PSU VALUE 

.SET UP GENERAL REGISTERS 
.SET ALL CONDITION CODES 
.•EXECUTE "lOCC" 

.CHECK RESULTS 

.•CHECK PSU. GENERATE CONDITION CODES 



afSAVR6.SP 
65$ 

SP.a«BADR6 



65$: 



;**ft************TEST 33 - ERROR 1 ♦♦♦♦♦♦♦••• 
'PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW 
.•ACTUAL PSU IS STORED AT "CCODES" 

;VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE , 
;ft«**ft***ft***ftft*TEST 33 - ERROR Z********** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
•EXPECTED VALUE OF SP IS STORED AT ••SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6^' 



L 
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0e:4A^^PA6E ^^^^ "lqcC" INSTRUCTION WITH SEARCH CHARACTER IN SOURCE. SL .GT. 100000 



SEO 0058 



010A32 
010A36 
01O4A0 

0104A2 
010446 
010450 

010A52 
010452 
010456 
010462 
010466 
010470 
010472 
010474 
010^76 
010500 
010502 

010504 
010506 
010510 

010512 



026704 
001401 
104003 

026705 
001401 
104004 



016703 
016702 
121367 
001403 
105723 
005302 
001372 
020200 
001401 
104005 

020301 
001401 
104006 



170216 
170210 



170170 
170162 
170166 



66$: 

67$: 
68$: 

69$: 
70$: 
71$: 



CNP 

BEQ 
ERROR 

C«P 

BEQ 
ERROR 



nov 

MOV 

C«P8 

BEQ 

TSTB 

DEC 

BNE 

CV 

BEQ 

ERROR 

C«P 
BEQ 
ERROR 



FILL,R4 

66$ 

3 

TABLE, R5 

67$ 

4 



SRCAD,R3 

SRCLN,R2 

(R3),FILL 

69$ 

(R3)^ 

R2 

68$ 

R2.R0 

70* 

5 

R3.R1 
71 i 
6 



: CHECK R4 UNCHANGED 
;BR IF OK 

..•••••••••••**t*TEST 33 - ERROR 3**"*********** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
; CHECK R5 UNCHANGED 
'BR IF OK 

;******t****tt*tTEST 33 - ERROR 4*»************* 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

; LOCATE "CHARACTER" 



.•POINT TO NEXT BYTE 

.-DECREMENT BYTE COUNT 

;BR. IF NOT FINISHED 

.•CHECK ROsREMAINING SOURCE LENGTH 



;*********ft***ft*TEST 33 - ERROR 5« 

.•LOCATE LENGTH ERROR 

.•CHECK RIsADDRESS OF CHARACTER 

;*****ft*****ftftft*rEST 33 - ERROR 6* 
.•LOCATE ADDRESS ERROR 



010512 
010514 
010520 
010552 
010524 

010532 
010536 
010540 
010544 
010546 



000004 
004567 
000377 
016310 
^77777 
y77777 
000000 
004567 
000204 
004767 
000244 
000276 



010550 076040 



010552 
010556 
010560 



004767 
001401 
104001 



♦TEST 34 



TEST 'tOCC" WITH SEARCH CHARACTER NOT IN SOURCE 



003530 



003606 
003440 



003612 



♦PROPER TERMINATION OF THIS TEST IS RO EQUALS ZERO, R1 
♦EQUALS ADDRESS OF LSB OF SOURCE PLUS ONE, AND ALL 
♦CONDITION CODES CLEAR EXCEPT Z«1. 

'•ft************************************************************** 

TST34' SCOPE 

JSR RS^PREP ;SET UP INSTRUCTION ARGUMENTS 

.SOURCE LENGTH 
.'SOURCE ADDRESS 

.•STORE NON-ZERO VALUES TO TEST R2 ( R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.SEARCH CMASK FOR SCANC/SPANC3 CHARACTER 
.-STORE EXPECTED PSU VALUE 



JSR 
.WORD 
JSR 
CLZ 

♦SEV!SEN!SEZ 



R5.PREP 
37^ 
BUF1 
NXM 
NXM 
0 

RS.XPSU 
20l 

PC.6ENR 



LOCC 

JSR 
BEQ 
ERROR 



PC.CKCC 
^4$ 

1 



;SET UP GENERAL REGISTERS 
.•CLEAR CONDITION CODE Z 
.-SET ALL OTHER CONDITION CODES 
.-EXECUTE 'lOCC" 

.-CHECK RESULTS 

.•CHECK PSW, GENERATE CONDITION CODES 



;***************TEST 34 - ERROR 1**« 
-PSU ERROR 

!- EXPECTED PSW IS STORED AT "tXPPSW" 
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T34 TEST •lOCC" WITH SEARCH 



3180 

3181 

3182 

3183 

318A 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

5192 

3195 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

32C8 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

5221 

5222 

3225 

3224 

3225 

3226 

3227 

3228 

5229 

3230 

3251 

m 



01 0562 
01 0562 
010566 
010570 
010574 



010576 
010576 
010602 
010604 

010606 
010612 
010614 

010616 
010616 
010622 
010626 
010652 
010634 
010656 
010640 
010642 
010644 
010646 

010650 
010652 
010654 

010656 



010656 
010660 
010664 
010666 
010670 
010672 
010674 
010676 
010702 
010704 
010710 



025706 
001405 
010657 
104002 



026704 
001401 
104005 

026705 
001401 
104004 



016705 
016702 
121567 
001405 
105725 
005502 
001572 
020200 
001401 
104005 

020501 
001401 
104006 



000004 
004567 
OOOOQO 
}77777 
\77777 
\77777 
)1 
J67 
>04 
^67 
000244 



000676 
000700 



170052 
170044 



170024 
170016 
170022 




005364 



003442 
003274 



64$: 



65$: 

66$: 

67$: 
68$: 

69$: 
70$: 
71$: 



BEQ 
NOV 
ERROR 



CMP 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 



nov 

NOV 

CNPB 

BEQ 

TST8 

DEC 

BNE 

CNP 

BEQ 

ERROR 

CNP 
BEQ 
ERROR 



»rSAVR6,SP 
65$ 

SP,a«8A0R6 

2 



FILL,R4 

66$ 

3 

TABLE. R5 
67$ 

4 



SRCAD,R3 

SRCLN,R2 

Cfi5).FILL 

69$ 

(R3)* 

R2 

68$ 

R2.R0 

70i 

5 

R3.R1 
71 i 
6 



CHARACTER NOT IN SOtiRCE 

.•ACTUAL PS« IS STORED AT "CCOOES" 

.•VERIFY STACK POINTER IS RESTORED 
'BR IF OfC 

•STORE BAD SP VALUE 

;***************TEST 54 - ERROR 2******»****«««* 

; STACK POINTER NOT RESTORED BT INSTRUCTION 
.-EXPECTED VALUE OF SP IS STORED AT "SAVRb" 
.•ERRONEOUS VALUE IS AT 'BADR6'^' 

.•CHECK R4 UNCHANGED 
;BR IF OK 

;***************TEST 34 - ERROR 3»******»******» 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.-CHECK R5 UNCHANGED 
*BR IF OK 

;ft**************rEST 34 - ERROR ♦•••••••*******» 

:R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.•LOCATE "CHARACTER" 



.•POINT TO NEXT BYTE 

.•DECRENENT BYTE COUNT 

:8R, IF NOT FINISHED 

.CHECK ROsRENAINJNG SOURCE LENGTH 



;*****ft******«**TEST 54 - ERROR 5« 

.LOCATE LENGTH ERROR 

.-CHECK RisADDRESS OF CHARACTER 

;**ft************TEST 54 - ERROR 6« 
.-LOCATE ADDRESS ERROR 



;*TEST 35 TEST 'lOCC" WITH ZERO SOURCE LENGTH 

;ipRSErfERNINATIoi5*OF*TEST IS NO CHANGE IN CONTENTS OF 
;*R0Cft1. AND ALL CQNDJTiON CODES CLEAR EXCEPT Z-l. 



tST55; 



SCOPE 
JSR 



JSR 
.WORD 
JSR 
CLZ 



R5.PREP 
0 

NXN 
NXN 

Nxn 

1 

RS.XPSy 
204 

PC.GENR 



.-SET UP INSTRUCTION ARGUMENTS 
; SOURCE LENGTH 

.SOURCE ADDRESS ^ ^ , 

.-STORE NON-ZERO VALUES TO TEST R2 ( R5 
: UNAFFECTED BY DIS STRING INSTRUCTIONS 
.-SEARCH CrUSK FOR SCANC/SPANC3 CHARACTER 
.STORE EXPECTED PSU VALUE 

.SET UP GENERAL REGISTERS 
; CLEAR CONDITION CODE Z 



t 
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735 TEST 'tOCC" WITH ZERO SOURCE LENGTH 



SEQ 0060 



5? 56 
3257 
5258 
5259 
5240 
3241 
5242 
5245 
5244 
524 S 
3246 
3247 

5249 

52S0 

52S1 

5252 

5253 

5254 

52")5 

5256 

3257 

3258 

3259 

5260 

3261 

5262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

5272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 



010712 
010/14 

010716 
010722 
010724 



010726 
010726 
070752 
010734 
010740 



010742 
010742 
010744 
010746 

010750 
010754 
010756 

010760 



010760 
010762 

010766 
010772 
010774 
011000 
011002 
011004 
Q11006 
011010 
011012 
011020 
011026 
011032 
011036 
011044 



000273 

076040 

004767 
001401 
104001 



023706 
00U03 
010657 
104002 



105700 
001401 
104003 

026701 
001401 
104004 



000004 
004767 

005767 
001123 
004567 
000377 
016310 
^77777 
}77777 
000200 
012767 
0U777 
005077 
004767 
013777 
004567 



♦SEV!SEN!SEC 

LOCC 



003446 



000676 
000700 



64$: 



JSR 
BEO 
ERROR 



BEQ 
KOV 
ERROR 



PC.CKCC 
1 



8i»SAVR6.SP 
65$ 

SP.ar8ADR6 

2 



:SET ALL OTHER CONDITION COOES 
.EXECUTE 'lOCC" 

.-CHECK RESULTS 

.•CHECK PSU, GENERATE CONDITION CODES 



167672 



65$: 



1$: 



40$: 



;**ft************TEST 35 - ERROR I********** 
*PSW ERROR 

•EXPECTED PSU IS STORED AT 'tXPPSU" 
.•ACTUAL PSU IS STORED AT 'tCODES" 

; VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•STORE BAD SP VALUE 

;***ftft***ft******TEST 35 - ERROR 2********** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BA0R6'^' 



TSTB 


RO 


BEQ 


IS 


ERROR 


3 


C«P 


SRCAD.R1 


BEO 


40$ 


ERROR 


4 



.•CHECK RO 



;R0 CHANGED 
.•CHECK R1 



►TEST 35 - ERROR 3« 



:R1 CHANGED 



►TEST 35 - ERROR 4< 



•TEST 36 



TEST INTERRUPTABILITV Of 'lOCC" INSTRUCTiaN 



*THJS TEST INTERRUPTS THE EXECUTION OF 'lOCC" INSTRUCTION. 
•RESUMES EXECUTION AFTER THE INTERRUPT. AND CHECKS THE 
•RESULTS. RESULTS INDICATE THE SEARCH CHARACTER FOUND. 



003424 
167712 
003250 



011076 
014506 
167634 
003424 
000554 
003274 



167650 
167636 



167616 



th36: SCOPE 
JSR 

TST 
8NE 
JSR 



NOV 
NOV 
CLR 
JSR 
NOV 
JSR 



PC.SKPINT 

TENP 

TST37 

R5-PREP 

37> 

BUF1 

NXN 

NXfl 

200 

fLOC.PCI 

flNTR.STVECT 

aTPSU 

PC.TOONE 

»riNULL.aTBUF 

R5.XPSU 



;SET FLAG — TEMP. UHICH INDICATES IF 
.NEXT TEST IS TO BE EXECTED NEXT. 
.CHECK IF -TENP- IS SET 
.•TEHP IS SET. GO TO NEXT TEST 
.-SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
.•SOURCE ADDRESS 

.STORE NON-ZERO VALUES TO TEST R2 I R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.SEARCH CNASK FOR SCANC/SPANC3 CHARACTER 
.•STORE PC OF TEST INSTRUCTION 
;POINT TTY VECTOR TO INTERRUPT ROUTINE 
;ALLOU INTERRUPTS AFTER TTY INTERRUPT 

.•SEND CARRIAGE RETURN 
.•STORE EXPECTED PSU VALUE 
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T36 TEST INTERRUPTABILITY OF 'tOCC" INSTRUCTION 



SEQ 0061 



011050 
011052 
011056 
011064 
011070 
011074 



000000 

im 

004767 
010637 
000277 



011076 076040 



011100 
011104 
011112 
011114 
011122 
011130 
011132 



011134 
011134 
011140 
011142 
011146 



011150 
011150 
011154 
011156 

011160 
011164 
011166 

011170 
011170 
011174 
011200 
011204 
011206 

8111? 

011214 
011216 
011220 

011222 
011224 
011226 

011230 

011230 
011234 



000000 

000100 167574 

003114 

000676 



167566 

000100 167546 

177400 167550 

000674 167542 



000676 
000700 

167500 
167472 



167452 
167444 
167450 



REPLOC: 
LOC: 



106767 
032777 
001364 
042767 
023767 
001401 
104001 



023706 
001403 
010637 
104002 



026704 
001401 
104003 

026705 
001401 
104004 



016703 
016702 
121367 
001 40~ 
10572 
^5302 
)1372 
>0200 
.31401 
104005 



020301 
00U01 
104006 



106427 000200 
016777 167426 167422 



64$: 



65S: 

66$: 

67$: 
68$: 

69$: 

70$: 

71$: 
40$: 



.WORD 00 

HTPS #0 

BIS flOO.aiCSR 

JSR PCGENR 

NOV SP,a«SAVR6 

sec 

LOCC 

NFPS CCODES 

BIT flOO.aTCSR 

BNE REPLOC 

61 C »177400,CC0DES 

CNP a«EXPPSU,CCODES 

BEQ 64$ 

ERROR 1 



CAP a#SAVR6«SP 

BEQ 65$ 

MOV SP,8«BADR6 

ERROR 2 



CNP FILL,R4 

BEQ 66$ 

ERROR 3 

CNP TABLE, R5 

BEQ 67$ 

ERROR 4 



NOV SRCA0,R3 

MOV SRCLN,R2 

CMPB (R3),FILL 

BEO 69$ 

TST8 (R3)* 

DEC R2 

BNE 68$ 

CMP R2.R0 

BEO 70$ 

ERROR 5 

CMP R3.R1 

BEO 7li 

ERROR 6 



NTPS «200 

MOV TPSU.iTVECT 



;SET PSU TO ALLOW INTERRUPTS 
.ENABLE TTY INTERRUPTS 
;SET UP GENERAL REGISTERS 

;COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 
.SET ALL CONDITION CODES 

.EXECUTE 'lOCC" 

.•STORE THE PSW 

:IF INTERRUPT ARE DISABLED. THE INSTRUCTION WAS NOT INTE 

;BR t DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 

.•CLEAR ALL UNUSED BITS 

.•CHECK PSW AGAINST EXPECTED VALUE 

:BR. IF EQUAL 

;***************TEST 36 - ERROR 
'PSW ERROR 

•EXPECTED PSW IS STORED AT '1EXPPSW" 
.•ACTUAL PSW IS STORED AT "CCODES" 

: VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 36 - ERROR 2***********»»** 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT '8ADR6" 

.•CHECK R4 UNCHANGED 
•BR IF OK 

}***************TEST 36 - ERROR 3*»»»»»»»**»»*** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.CHECK R5 UNCHANGED 
•BR IF OK 

)******t********TEST 36 - ERROR 4*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.LOCATE "CHARACTER" 



.•POINT TO NEXT BYTE 

.•DECREMENT BYTE COUNT 

;BR. IF NOT FINISHED 

.•CHECK ROsREMAINING SOURCE LENGTH 



;****ft**ftft******TEST 36 - ERROR 5* 

.•LOCATE LENGTH ERROR 

.•CHECK R1-ADDRESS OF CHARACTER 

;***************TEST 36 - ERROR 6« 
.•LOCATE ADDRESS ERROR 

.RESTORE PSW TO PRIORITY 7 
; RESTORE TRAP CATCHER 



OOOOOA 

00A567 003000 

000007 

016710 

M7777 

\77777 

000001 

004567 003056 
000200 

004767 002710 
000277 



011276 076041 
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3348 

3549 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3560 

3561 01124? 

3362 011244 

3363 011250 

3564 011252 

3565 011254 

3566 011256 
3367 011260 
55^;8 011262 
5369 011266 

5570 011270 

5571 011274 
5572 
5575 
3574 

3575 011300 

3576 011504 
3377 011306 
3378 

3579 
3380 

3381 011310 

3382 011310 

3383 011314 

3384 011316 

3385 011322 
3386 

3387 
3388 

3389 011324 

3390 011324 

3391 011330 

3392 011332 
3393 

3394 011334 

3395 011340 

3396 011342 
3397 

3398 011344 

3399 011344 

3400 011350 

3401 011354 

3402 011360 
5403 011362 
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T36 TEST INTERRUPTABILITY OF 'lOCC 



INSTRUCTION 



SEQ 0062 



004767 003064 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



026704 167324 
001401 
104003 

026705 167316 
001401 
104004 



016703 167276 
016702 167270 
121367 167274 
001003 
105723 



••TEST 37 TEST "SKPC" INSTRUCTION WITH NON-SKIP CHARACTERS IN SOURCE 

;-ipROPER*fERNlNATION OF THIS TEST IS R1 EQUALS THE 
:*AODRESS OF THE FIRST OCCURRANCE OF A CHARACTER 
••OTHER THAN THE SEARCH CHARACTER. RO EQUALS THE 
.•REMAINING LENGTH OF THE SOURCE STRING. AND ALL 
.'•CONDITION CODES CLEAR 



TST37: SCOPE 
JSR 



JSR 

.UORD 

JSR 

sec 



64$: 



65$: 

66$: 

67$: 
68$: 



SKPC 

JSR 
BEQ 
ERROR 



C«P 
BEQ 

nov 

ERROR 



C«P 
BEO 
ERROR 

CFIP 
BEQ 
ERROR 



nov 

MOV 
CHP8 
BNE 
TSTB 



R5.PREP 
BUF2 

Nxn 

tm 
1 

R5.XPSU 
206 

PC.6ENR 



PC.CKCC 
64$ 

1 



a«SAVR6.SP 
65$ 

SP.a«BA0R6 

2 



FILL.R4 
66$ 

3 

TABLE. R5 

67$ 

4 



SRCAD.R3 

SRCLN.R2 

(R3),FILL 

69$ 

{R3)* 



:SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
.SOURCE ADDRESS 

.•STORE NON-ZERO VALUES TO TEST R2 ft R3 
: UNAFFECTED BY DIS STRING INSTRUCTIONS 
.SEARCfl CHASK FOR SCANC/SPANC3 CHARACTER 
.•STORE EXPECTED PSU VALUE 

.-SET UP GENERAL RESISTERS 
.SET ALL CONDITION CODES 
.EXECUTE '^KPC" 

.•CHECK RESULTS 

.•CHECK PSU. GENERATE CONDITION CODES 



;***************TEST 37 - ERROR ^•••••••••••••* 

•PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSU" 
.'ACTUAL PSU IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 37 - ERROR 2*********»**^*^ 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 

.•CHECK R4 UNCHANGED 
'SiR IF OK 

'•4»»»»*»*»»»»»»»TEST 37 - ERROR 3****»*^^^^*^^*^ 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION "FILL" 
.•CHECK R5 UNCHANGED 
•BiR IF OK 

;***************TEST 37 - ERROR A*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE' 

.SKIP "CHARACTER" 



.POINT TO NEXT BYTE 
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L 5 



3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
54 39 
3440 
5441 
5442 
5443 
5444 
344 S 
5446 
5447 
5448 
5449 
54S0 
5451 
5452 
5453 
54 54 
3455 
5456 
3457 
3458 
54 59 




011376 
011400 
011402 

011404 



011404 
011406 
011412 
011414 
011416 
011420 
011422 
011424 
011430 
011434 
011440 
011442 
011444 
011450 
011452 
011456 
011460 



011464 

011470 
011472 



011474 
011474 
011500 
011502 
011506 



020301 
001401 
104006 



000004 
004567 
000010 
016710 

mm 
mm 

000377 
016700 
016701 
116720 
005301 
001374 
004567 
000204 
004767 
000244 
000273 



011462 076041 



004767 
001401 
104001 



002636 



167216 
167210 
167214 



002674 
002526 



002700 



T37 



69$: 



70S: 



71$: 



TEST "SKPC" INSTRUCTION WITH NON-SKIP CHARACTERS IN SOURCE 



SEQ 0063 



DEC 
BNE 
CHP 
BEO 
ERROR 

C«P 
BEQ 
ERROR 



R2 

68$ 

R2,R0 

70i 

5 

R3.R1 

7li 

6 



.'DECREMENT BYTE COUNT 

;BR. IF NOT FINISHED 

.•CHECK RO-REHAINING SOURCE LENGTH 

;**t************TEST 37 - ERROR 5« 

.SKIP LENGTH ERROR 

.CHECK RUADDRESS OF CHARACTER 

;**ft*ft**********TEST 37 - ERROR 6' 
.•SKIP ADDRESS ERROR 



*TEST 40 TEST "SKPC" WITH ALL SKIP CHARACTERS IN THE SOURCE 

**************************************************************** 

•PROPER TERMINATION OF THIS TEST IS RO EQUALS ZERO, 

*R1 EQUALS THE ADDRESS^I OF THE LSB IN THE SOURCE STRING. 

*AND ALL CONDITION CODES ARE CLEAR EXCEPT Z=1. 

**************************************************************** 



TST40: 



SCOPE 
JSR 



1$: 



nov 
nov 

NOVB 
DEC 
BNE 
JSR 
.WORD 
JSR 
CLZ 

♦SEV'SENISEC 



R5.PREP 

10 

BUF2 

NXM 

NXM 

377 

SRCAD.RO 
SRCLN.R1 
FILL.(RO)* 
R1 
1$ 

R5.XPSU 
20^ 

PC.GENR 



023706 000676 
001403 

010637 000700 
104002 



64$: 



SKPC 

JSR 
BEQ 
ERROR 



CMP 
BEO 
NOV 
ERROR 



PC.CKCC 
64$ 

1 



arsAVR6.SP 

65$ 

SP.a«BADR6 

2 



;SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 

.•SOURCE ADDRESS , . , 

.STORE NON-ZERO VALUES TO TEST R2 & R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANC3 CHARACTER 
.•GENERATE SOURCE STRING 
;0F ALL SKIP CHARACTERS 



.•STORE EXPECTED PSU VALUE 

:SET UP GENERAL REGISTERS 
.•CLEAR CONDITION CODE "Z" 
;SET ALL OTHER CONDITION CODES 
.•EXECUTE "SKPC" 

.•CHECK RESULTS 

.•CHECK PSU. GENERATE CONDITION CODES 



;**o***********TEST 40 - ERROR 
•PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW" 
•ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 40 - ERROR 2********»» 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6'^' 
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01 1 sin 




J*«V 1 


01 1 S10 


0?<^704 
vCO' v"* 




01 1 S16 


001^01 




011S1A 

W 1 1 ^ 1 o 




jso«« 








011SP0 


0?6705 




01 1 S?6 


001601 


16#i7 


01 1 S?A 




1<.AA 








01 1 S10 




f U 


011510 


01A701 


1671 


011514 


01670? 


167? 


01 1 S60 


1?1?67 

1 C 1 -^V * 


167? 


011544 


001003 

VV 1 vv*/ 


\L7L 


011566 


105723 

1 V^ ' h ^ 


j*^ f J 


011550 


005302 

VV^ ^Vb 


J** * \j 


01 1 55? 

V 1 1 J 


001372 

VV I Jf c 


1677 


011554 

V 1 1 ^ 


020200 

Vb VC V V 


1678 


011556 


001401 

W 1 ~ W 1 




01 1 560 


104005 

I v~ 


1680 






1681 


01156? 

VII ^VC 


020301 


5682 


011564 


001401 


^683 


01 1 566 


104006 


v,a6 






5685 


011570 




3666 






3487 






^688 






^689 












?691 






169? 






1491 






3494 






149S 


01 1570 

VI \ J f \/ 


000004 


1496 


011572 

V i 1 ^ • «, 


004567 


1697 


011576 


000000 

VV V WV 


1698 


01 1600 

\J ' \ wv 


177777 




01160? 


M7777 




011604 


y77777 


3501 


01 1606 


000000 


3S02 


01 1610 


004567 




01 1614 


000204 

V w t V^ 


^S04 


011616 


004767 


3505 


011622 
011624 


000244 


3506 


000267 


3507 






3508 


011626 

V ■ 1 Wfcw 


076041 


3509 






3510 


011630 


004767 


3511 


011634 


001401 


3512 


011636 


104001 


3513 






3514 






3515 
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167140 



167132 



167112 
167104 
167110 
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T40 TEST "SKPC" WITH ALL SKIP CHARACTERS IN THE SOURCE 



SEQ 0064 



002452 



002530 
002362 



002534 



65S: 

66$: 

67$: 
68$: 

69$: 
70$: 
71$: 



BEO 
ERROR 

C«P 
BEQ 
ERROR 



nov 

NOV 

C«P8 

BNE 

TSTB 

DEC 

BNE 

CHP 

BEQ 

ERROR 

C«P 
BEQ 
ERROR 



FILL,R4 

66$ 

3 

TABLE, RS 
67$ 

4 



SRCAD,R3 

SRCLN,R2 

(R3),FILL 

69$ 

(R3)* 

R2 

68$ 

R2,R0 

70i 

5 

RJ^RI 
6 



.•CHECK R4 UNCHANGED 
*6R IF OK 

'•«**************rEST 40 - ERROR 3tt**t****t*t»** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK RS UNCHANGED 
:eR IF OK 

;****ft**********TEST 40 - ERROR 4****»«»*»****** 

:R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.•SKIP "CHARACTER" 



.•POINT TO NEXT BYTE 

.•DECREMENT BYTE COUNT 

;BR, IF NOT FINISHED 

; CHECK RQsRENAINING SOURCE LENGTH 



;***************TEST 40 - ERROR 5« 

.-SKIP LENGTH ERROR 

.CHECK RIsADDRESS OF CHARACTER 

;**********ft****TEST 40 - ERROR 6< 
;SKIP ADDRESS ERROR 



.••TEST 41 TEST "SKPC" WITH ZERO SOURCE LENGTH 

• **************************************************************** 

;*PROPER TERMINATION OF TEST IS NO CHANGE IN CONTENTS OF 
;*ROtRl. AND ALL CONDITION CODES CLEAR EXCEPT 2-1. 

;;**************************************•***••*#*•*******•******* 
'•*************************************************************** 

tST41 : SCOPE 

; SET UP INSTRUCTION ARGUMENTS 
.SOURCE LENGTH 

.•SOURCE ADDRESS ^ . , 

NON-ZERO VALUES TO TEST R2 I R3 
: UNAFFECTED BY DIS STRING INSTRUCTIONS 
.SEARCH CMASK FOR SCANC/SPANC3 CHARACTER 
.•STORE EXPECTED PSV VALUE 



JSR 



JSR 
.WORD 
JSR 
CLZ 

♦SEV'SEZ.'SEC 



R5.PREP 

0 

NXM 
NXM 
NXM 

0 

R5.XPSU 

204 

PC.GENR 



SKPC 

JSR 
BEQ 
ERROR 



PCCKCC 
64$ 

1 



;SET UP GENERAL REGISTERS 
.•CLEAR "Z" CONDiTIOri CODE 
;SET ALL OTHER CONDITION CODES 
.•EXECUTE "SKPC" 

.•CHECK RESULTS 

.-CHECK PSU, GENERATE CONDITION CODES 



;***************TEST 41 - ERROR 1**« 
•PSU ERROR 

•EXPECTED PSW IS STORED AT "EXPPSW" 
.•ACTUAL PSW IS STORED AT "CCODES" 
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T41 TEST "SKPC 



N 5 

WITH ZERO SOURCE LENGTH 



SEQ 0065 



3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

353/ 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

5545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

5565 

3S66 

3567 

3568 

3569 

3570 

?S71 



011640 
011640 
011644 
011646 
011652 



011654 
011654 
011656 
011660 

011662 
011666 
011670 

011672 



011672 
011674 

011700 
011704 
011706 
011712 
011714 
011716 
011720 
011722 
011724 
011730 
011734 
0117*6 
011742 
011744 
011746 
011750 
011756 
011764 
011770 
01177< 
012002 
012006 
012010 



023706 000676 
001403 

010637 000700 
104002 



105700 
001401 
104003 

026701 166760 

001401 

104004 



000004 

004767 002512 



005767 
001135 
004567 
000400 
016710 
}7?777 
\7777y 
mi77 
016700 
016701 
005301 
116720 
00S301 
001374 
105020 

005077 
004767 
013777 
004567 
OOOOOQ 
106427 



64$: 



BEQ 

nov 

ERROR 



»rSAVR6,SP 
65$ 

SP, a«8ADR6 



65$: 



1$: 



40$: 



;VERIFr STACK POINTER IS RESTORED 
:BR IF OK 

.•STORE BAD SP VALUE 

••**************TEST 41 - ERROR 2»***»»»**« 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE Of SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 



TST8 


RO 


BEQ 


1$ 


ERROR 


3 


CMP 


SRCAD.R1 


BEQ 


40$ 


ERROR 


4 



.•CHECK RO 



;R0 CHANGED 
.•CHECK R1 



;R1 CHANGED 



>TEST 41 - ERROR 3« 
»TEST 41 - ERROR 4< 



West 42 test interruptability of "skpc" instruction 

iTHIS*TEST interrupts THE EXECUTION OF "SKPC" 
^INSTRUCTION. RESUMES EXECUTION AFTER THE INTERRUPT. 
*AND CHECKS THE RESULTS. RESULTS INDICATE THE NON-SKIP 
^CHARACTER FOUND 



tST42; SCOPE 
JSR 



167000 TST 

BNE 

002336 JSR 



166716 HOV 
166710 MOV 

DEC 

166712 CONTG: MOVB 

DEC 
BNE 
CLRB 

012034 166712 MOV 
014506 166700 MOV 
166676 CLR 
002466 JSR 
0QQ5S4 166660 MOV 
002336 JSR 

.UORD 

000000 MTPS 



PC.SKPINT 

TEMP 

TST43 

R5-PREP 

400 

BUF2 

NXM 

NXM 

srcad.ro 

SRCLN.R1 
R1 

FiLL.(RO)* 
R1 

CONTG 

(RO)*^ 

fSKP.PCI 

fINTR.aTVECT 

iTPSU 

PC-TDONE 

afiNULL.iTBUF 

R5.XPSW 

00 

fO 



;SET FLAG — TEMP. WHICH INDICATES IF 
;NEXT TEST IS TO BE EXECTED NEXT. 
.•CHECK IF -TEMP- IS SET 
;TEMP IS SET. GO TO NEXT TEST 
.•SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 

.•SOURCE ADDRESS ^ _ , 

.•STORE NON-ZERO VALUES TO TEST R2 \ R3 
: UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANC] CHARACTER 
.•GENERATE SOURCE STRING OF ALL 
.SKIP CHARACTERS EXCEPT THE LAST BYTE 
.•ADJUST BYTE COUNTsSRCLN-1 



.•PUT NON-SKIP CHARACTER IN LAST BYTE 
.STORE PC OF TEST INSTRUCTION 
.POINT TTY VECTOR TO INTERRUPT ROUTINE 
;ALLOy INTERRUPTS AFTER TTY INTERRUPT 

.•SEND CARRIAGE RETURN 
.•STORE EXPECTED PSV VALUE 

.SET PSU TO ALLOW INTERRUPTS 



.MAIN. 
CVKAIB 

3572 
3575 
3574 
3575 
5t)76 
3577 
3573 
3579 
3580 
3581 
3582 
3583 
558A 
3585 
5'^ 86 
3')87 

y>m 

5589 
5590 
5591 
3592 
5593 
559A 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
5604 
3605 
5606 
3607 
3608 
3609 
3610 
3611 
5613 
3613 
36U 
3615 

U]^ 

')18 
i19 

10 
>1 

11 
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012014 052777 000100 166636 

012022 004767 002156 REPSKP: 

012026 010637 000676 

012032 000277 



012034 076041 



SKP: 



0120^6 
01204? 
012050 
012052 
012060 
012066 
012070 



012072 
012072 
012076 
012100 
012104 



012106 
012106 
012112 
012114 

012116 
012122 
012124 

012126 

012132 
012136 
012142 
012144 
012146 
)l|l50 
)l|l52 
)12154 
)12156 

012160 
012162 
0P164 

012166 



106767 166630 

032777 C00100 166610 

001364 

042767 177400 166612 
023767 000674 166604 
001401 
104001 



023/06 000676 
001403 

010637 000700 
104002 



026704 166542 
001401 
104003 

026705 166534 
001401 
104004 



016703 166514 

016702 166506 

121367 166512 

001003 

105723 

005302 

001372 

020200 

001401 

104005 

020301 
001401 
104006 



106427 0002QQ 
016777 166470 166464 



64$: 



65$: 

66$: 

67$: 
68$: 

69$: 

70$: 

71$: 
40$: 



67 
TEST 

BIS 
JSR 

mv 
sec 

SKPC 



B 6 

INTERRUPTA81LITY Of "SKPC" IWSTROCTIOW 

#100,aTCSR .-ENABLE TTY INTERRUPTS 

PC.G^NR :SET UP GENERAL REGISTERS 

SP,a#SAVR6 .-COPY STACK POINTER BEFORE INSTRUCTIM EXECUTION 

:SET ALL CONDITION CODES 

.•EXECUTE "SKPC" 



&EQ 0066 



NFFS 

BIT 

BNE 

BIG 

CMP 

BEQ 

ERROR 



CMP 
dEQ 
MOV 
ERROR 



CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



MOV 

MOV 

CMP8 

BNE 

TST8 

DEC 

BNE 

CMP 

BEQ 

ERROR 

CMP 
BEQ 
ERROR 



MTPS 
MOV 



.•CHECK RESULTS 
.•STORE THE PSW 

;IF INTERRUPT ARE DISABLED, THE INSTRUCTION WAS NOT INTE 
;BR I DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 
.•CLEAR ALL UNUSED BITS 
a#EXPPSW.CCODES ; CHECK PSU AGAINST EXPECTED VALUE 
64$ :BR. IF EQUAL 



CCODES 
4riOO.aTCSR 
REPSKP 
#177400. CCODES 



1 



a#SAVR6.SP 
65$ 

SP.a«8ADR6 



FILL,R4 

66$ 

3 

TABLE. R5 

67$ 

4 



SRCAD.R3 

SRCLN.R2 

(R3).FILL 

69$ 

(R3)+ 

R2 

68$ 

5 

R3.R1 

7li 

6 



#200 

TPsw.arvECT 



HEST 42 - ERROR 1****»*"»**««t* 
;PSU ERROR 

; EXPECTED PSW IS STORED AT 'tXPPSU" 
.•ACTUAL PSU IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
;BR IF OK 

.•STORE BAD SP VALUE 

;***********ft***TEST 42 - ERROR 2»**********«««* 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
; ERRONEOUS VALUE IS AT 'BADR6" 

; CHECK R4 UNCHANGED 
*6R IF OK 

;***************rEST 42 - ERROR 3**************» 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
:6R IF OK 

••*******ftft*****TEST 42 - ERROR 4*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE* 

.-SKIP 'tHARACTER" 



.•POINT TO NEXT BYTE 

.•DECREMENT BYTE COUNT 

:Bft. IF NOT FINISHED 

.•CHECK ROsRENAINING SOURCE LENGTH 



;***************TEST 42 - ERROR 5« 

;SKIP LENGTH ERROR 

.•CHECK RI^ADDRESS OF CHARACTER 

;***************TEST 42 - ERROR 6« 
.-SKIP ADDRESS ERROR 



;RESTORE PSU TO PRIORITY 7 
.RESTORE TRAP CATCHER 



I 

L 
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3628 
3629 

]1 



1^ 

36^ 

012200 

3639 Ol|202 

3640 012206 
56^1 01221^ 

3iPi4 

;4 012216 

i5 012220 

}di 0122^1 

36A8 012234 

3649 012240 

3650 012244 
3651 

3652 012246 
3653 

3654 012250 

t55 012254 

5^ 012256 

3658 
3659 

3660 012260 

3661 012260 

3662 012264 
i3 012266 

012272 

3668 012274 

!I69 012274 

3670 012300 

3671 012302 

S73 012304 

3674 012310 

3675 012312 
5676 

3677 012314 

3678 012314 

3679 012320 
5680 012324 
3681 012326 
568^ 012332 
^6S^ 012340 
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T42 TESr INTE/WUPTABILITY OF "SKPC 



INSTRUCTION 



SEO 0067 



000004 
004567 
000003 
016310 
^77777 
177777 
000002 
012767 
004567 
000200 
004767 
016705 
000277 

076042 

004767 
001401 
104001 



023706 
001403 
010637 
104002 



026704 
001401 
104003 

026705 
001401 
104004 



016703 
016702 
111304 
042704 
136467 
001003 



•TEST 42 



TEST "SCANC" UITH A HEflBER CHARACTER IN SOURCE ( SL .6T. 0 AT CHARACTER 



•PROPER TcRMINATION OF TEST IS R1 EQUAL ADDRESS OF SOURCE 
•BYTE WHICH WHEN ANOED WITH NASK=1 RO EQUALS REMAINDER 
•OF SOURCE LENGTH, AND ALL CONDITION CODES CLEAR. 



002042 



016310 
002112 

001744 
166412 



002114 



166430 



TST43: SCOPE 
JSR 



nov 

JSR 
.WORD 
JSR 
NOV 

sec 



000676 
000700 



166354 



166346 



166326 
166320 

177400 
016310 



64$: 



65$: 

66$: 

67$: 
68$: 



166314 



SCANC 

JSR 
BEQ 
ERROR 



CHP 
BEQ 

mv 

ERROR 



CMP 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 



nov 

HOV 

novB 

81 C 

BITS 

6NE 



R5,PREP 
BUF1 

Nxn 
Nxn 

2 

«8UF1, TABLE 

R5.XPSU 

206 

PC.GENR 
TABLE, R5 



PCCKCC 
64$ 

1 



»rSAVR6,SP 
65$ 

SP.a«BADR6 



FILL,R4 

66$ 

3 

TABLE, R5 

67$ 

4 



SRCAD,R3 

SRCLN,R2 

(R3),R4 

«177400,R4 

BUFUR4).FILL 

69$ 



SET UP INSTRUCTION ARGUMENT 
SOURCE LENGTH 
SOURCE ADDRESS 

STORE NON-ZERO VALUES TO TEST R2 ( R3 

UNAFFECTED BY DIS STRING INSTRUCTIONS 
SEARCH CMASK FOR SCANC/SPANC3 CHARACTER 

STORE EXPECTED PSU VALUE 

SET UP GENERAL REGISTERS 

SET ALL CONDITION CODES 
EXECUTE "SCANC" 

CHECK RESULTS 

CHECK PSW, GENERATE CONDITION CODES 



••**********ft**TEST 43 - ERROR !••••••••••••••• 

PSU ERROR 

EXPECTED PSU IS STORED AT 'tXPPSU" 
ACTUAL PSU IS STORED AT "CCODES" 

VERIFY STACK POINTER IS RESTORED 
BR IF OK 

STORE BAD SP VALUE 

***************TEST 43 - ERROR 2*********^^***^ 

STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
ERRONEOUS VALUE IS AT 'BADR6" 

CHECK R4 UNCHANGED 
BR IF OK 

*******ft*******TEST 43 - ERROR 3^*^*^^**^^^^*^* 

R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

**tk********t***TEST 43 - ERROR 4**«****»****^*« 

R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE" 

POINT R3 TO SOURCE STRING 
STORE SOURCE LENGTH IN R2 
U5E SOURCE BYTE AS INDEX 
CLEAR ANY BYTE SIGN EXTENSION 
"AND" TABLE ENTRY UITH MASK 
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T43 TEST "SCAMC" WITH A MEMBER CHARACTER IN SOURCE t SL .GT. 0 AT CHARACTER SEQ 0068 



3684 

168S 

3686 

3687 

3688 

5689 

5690 

5691 

5692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

>701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

m 

3726 
3727 
3728 

3731 
3732 
3733 
373/. 
3735 
3736 
3737 
3758 
T7^9 



012342 
012344 
012346 
012350 
012352 
012354 

012356 
012360 
012362 

012364 



105723 
005302 
001366 
020200 
001401 
104005 

020301 
001401 
104006 



69S: 
70S: 
71S: 



TST8 

DEC 

BNE 

C«P 

BEQ 

ERROR 

C«P 
BEQ 
ERROR 



(R3) + 

R2 

68S 

R2.R0 

70i 

5 

R3-R1 

7li 

6 



; POINT TO NEXT SOURCE BTTE 

/DECREMENT BYTE COUNT 

:6R, IF NOT FINISHED 

: CHECK ROsREHAINING SOURCE LENGTH 

;**ft************TEST 43 - ERROR 5« 

;SCAN LENGTH ERROR 

.•CHECK RIsAODRESS OF CHARACTER 

;***************TEST 43 - ERROR 6« 
;SCAN ADDRESS ERROR 



012364 
012366 
012372 
012374 
012376 
012400 
012402 
012404 
012412 
012416 
012420 
012424 
012430 
012432 



000004 

004567 001656 

000200 

016310 

}77777 

y77777 

000000 

012767 016310 166244 
004567 001726 
000204 

004767 001560 
016705 166226 
000277 
000244 



•TEST 44 



TEST "SCANC" FAILS, ALL NON-MEMBER CHARACTERS IN STRING 



*THIS TEST VCRIFIES THAT "SCANC" INDICATES NO MEMBERS FOUND 
•RESULT IS RO-0. R1 EQUALS THE ADDRESS^I OF LSB IN SOURCE. 
*AND ALL CONDITION CODES CLEAR EXCEPT 2-1. 



TST44: 



012434 076042 



012436 
012442 
012444 



012446 
012446 
012452 
012454 
012460 



012462 



004767 001726 

001401 

104001 



023706 000676 
001403 

010637 000700 
104002 



SCOPE 
JSR 



MOV 

JSR 

.WORD 

JSR 

MOV 

sec 

CLZ 
SCANC 



JSR 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



R5-PREP 

20d 

BUF1 

NXM 

NXM 

0 

«8UF1. TABLE 

R5,XPSU 

20^ 

PC.GENR 
TABLE. R5 



PC.CKCC 
64S 

1 



a#SAVR6.SP 
65$ 

SP.a«BADR6 

2 



.-SET UP INSTRUCTION ARGUMENTS 
.•SOURCE LENGTH 
.•SOURCE ADDRESS 

.•STORE NON-ZERO VALUES TO TEST R2 I R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANCJ CHARACTER 

.•STORE EXPECTED PSW VALUE 

:SET UP GENERAL REGISTERS 

;SET ALL CONDITION CODES. EXCEPT 
.CLEAR '7" CONDITION CODE 

.•EXECUTE "SCANC" 

.•CHECK RESULTS 

.•CHECK PSW. GENERATE CONDITION CODES 



65S: 



;***************TEST 44 - ERROR 
•PSU ERROR 

;EXPECTED PS« IS STORED AT "tXPPSU" 
.•ACTUAL PSW IS STORED AT "CCODES" 

.•VERIFY STACK POINTER IS RESTORED 
:BR IF OK 

.•STORE BAD SP VALUE 

;***************TEST 44 - ERROR 2*********« 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
; ERRONEOUS VALUE IS AT ^%ADR6^' 
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TU TEST "SCANC" FAILS, ALL NON-«£WER CHARACTERS IN STRING 



SEO 0069 



3740 

3741 

3742 

3745 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

5774 

3775 

3776 

3777 

37/8 

3779 

3780 

3781 

V82 

3783 

3784 

3785 

3786 

5787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

5795 



012462 
012466 
012470 



012472 
12476 
12500 



8 



012502 
012502 
012506 
012512 
012514 
012520 
012526 
012530 
012532 
012534 
012536 
012540 
012542 

012544 
012546 
012550 

012552 



012552 
0125S4 

012560 
01256^ 
012566 
012572 
012S74 
012576 
012600 
0K'602 
012604 
012612 
012620 
012626 
012632 
012636 



026704 
001401 
104003 

026705 
001401 
104004 



016703 
016702 
111304 
042704 
136467 
001003 
105723 
005302 
001366 
020200 
001401 
104005 

020301 
00U01 
104106 



000004 
004767 

005767 
001135 
004567 
000400 
016310 
y77777 
y77777 
000000 
012767 
012767 
012777 
005077 
0OA767 
013777 



166166 



166160 



166140 
166132 

177400 
016310 



66$: 

67$: 
68$: 



166126 



69$: 
70$: 
71$: 



C«P FILL.R4 

BEQ 66$ 

ERROR 3 

C«P TABLE. R5 

BEQ 67$ 

ERROR 4 



NOV SRCA0,R3 

nOV SRCLN,R2 

nOV8 (R3).R4 

BIC #177400,R4 

BITS 6UF1(R4),PILL 

BNE 69$ 

TST8 (R3)* 

DEC R2 

BNE 68$ 

C«P R2.R0 

BEQ 70$ 

ERROR 5 

C«P R3.R1 

BEQ 71$ 

ERROR 6 



;CHcCK R4 UNCHANGED 
;BR IF OK 

TEST 44 - ERROR 3 ttt»»«** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.-CHECK R5 UNCHANGED 
;BR IF OK 

••••••••TEST 44 - ERROR 4^^ 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE" 

;POINT R3 TO SOURCE STRING 
.'STORE SOURCE LENGTH IN R2 
:USE SOURCE BYTE AS INDEX 
.•CLEAR ANY BYTE SIGN EXTENSION 
;"AND" TABLE ENTRY WITH MASK 

.•POINT TO NEXT SOURCE BYTE 

.•DECREMENT BYTE COUNT 

:BR, IF NOT FINISHED 

.•CHECK ROsREMAINING SOURCE LENGTH 

.••••••••••••••••TEST 44 - ERROR S*************** 

;SCAN LENGTH ERROR 

.•CHECK R1 -ADDRESS OF CHARACTER 

••••••••••••••••TEST 44 - ERROR 6******«******** 

.-SCAN ADDRESS ERROR 



001632 
166120 
001456 



016310 
012704 
014506 
166034 
001624 
000554 



166044 
166050 
166036 



166016 



• •**•*••••••*••*••*•••*•****•••••••••••***•••*••••••••••••••••••• 

••TEST 45 TEST INTERRUPTABILITY OF "SCANC" 

• •••••••♦♦♦•••••••••♦•♦♦♦•♦•♦♦•♦♦••♦♦♦••••♦••••••••••••♦*»•*•••** 

•♦THIS TEST INTERRUPTS THE "SCANC" INSTRUCTION. RESUMES 
••EXECUTION AFTER THE INTERRUPT, AND CHECKS RESULTS. ^ 
.••RESULTS ARE RO'O. R1 EQUALS APDRESS^I OF LSB IN SOURCE. 
.••AND ALL CONDITION CODES CLEAR EXCEPT Z-1. 

;;••••••••••••••••••••••••••••••••••••••*••*•*••••**•••*••••••*•• 

•'••••**•••••••••••••••••••••••••••••••••*•*••******••****••****** 

t^T4S^ SCOPE 

* JSR PC.SKPINT .-SET FLAG — TEMP, WHICH INDICATES IF 

NEXT TEST IS TO 6e EXECTED NEXT. 
TST TEMP .CHECK IF -TEMP- IS SET 

BNE TST46 ;TEMP IS SET, 60 TO NEXT TEST 

JSR RS.PREP ;SET UP INSTRUCTION ARGUMENTS 

.•SOURCE LENGTH 

.•SOURCE ADDRESS , „ , 

.•STORE NON-ZERO VALUES TO TEST R2 ( R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANC] CHARACTER 



MOV 
MOV 
MOV 

CLR 
JSR 
MOV 



TEMP 
TST46 
R5.PREP 
406 
BUF1 
NXM 
NXM 
0 

«BUF1. TABLE 
#SCN.PCI 
#INTR.aTVECT 
aTPSW 
PC.TDONE 
a#$NULL.aTBUF 



.♦STORE PC OF TEST INSTRUCTION 

.•POINT TTV VECTOR TO INTERRUPT ROUTINE 

.•ALLOW INTERRUPTS AFTER TTY INTERRUPT 

.'SEND CARRIAGE RETURN 



i 
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3796 
3797 
3798 
3799 

)1 



3805 

3808 
3809 
3810 
3811 
5812 
3813 
381A 
3815 
3816 
381^ 
3818 
3819 
5820 
5821 
3822 
5823 
382A 
3825 
5826 
5827 
3828 
3829 
3830 
3831 
3832 
5833 
3834 
3835 
3836 
3837 
3838 
5839 
5840 
3841 
5842 
3843 
3844 
3845 
5846 
3847 
18 
19 
J50 
151 



012644 
01265 
0126 
0126 
012664 
012670 
012674 
012700 
012702 




U 
0!. 
004767 
010637 
016705 
000244 
000267 



012704 076042 



012706 
012712 
012720 
012722 
012730 
012756 
012740 



106767 
05?777 
001361 
042767 
023767 
001401 
104001 



012742 

012742 023706 

012746 001403 

012750 010637 

012754 104002 



012756 
012756 
012762 
012764 

012766 
012772 
012774 

012776 
012776 
013002 

"l^ 

.13014 
013022 
013024 
Q;50|6 
013030 
013032 
013054 
013036 

015040 
015042 



8 



026704 
001401 
104005 

026705 
001401 
104004 



016705 
016702 
111504 
042704 
136467 
001005 
105723 
005502 
001566 
020200 
001401 
104005 

020501 
001401 



001474 



08:44 PAGE 
T45 



71 

TEST 



F 6 

INTERRUPTABILITY OP "SCAWC" 



SEQ 0070 



JlOO 165774 
)1514 REPSCN: 
J76 
16S756 



000676 
000700 



165672 



165664 



SCN: 



165760 

000100 165740 

177400 165742 

000674 165734 



64$: 



165644 
165656 

177400 

016510 165652 



65$: 



66$: 



67$: 



68$: 



69$: 
70$: 



JSR 
.WORD 
BTPS 
BIS 
JSR 
NOV 
NOV 
CLZ 

^SEV'SEZ.'SEC 



R5,XPSW 
04 
#0 

JflOO.aTCSR 
PCGENR 
SP,a#SAVR6 
TABLE, R5 



SCAMC 



NFPS 

BIT 

BNE 

61 C 

CNP 

BEO 

ERROR 



CMP 
BEQ 
NOV 
ERROR 



CNP 
BEO 
ERROR 

CNP 
BEO 
ERROR 



NOV 

NOV 

NOVB 

BK 

BITS 

BNE 

TSTB 

DEC 

BNE 

CNP 

BEO 

ERROR 

CNP 
BEQ 



CCODES 
flOO.aTCSR 
REPSCN 

#177400. CCODES 



.•STORE EXPECTED PSU VALUE 

;SET PSW TO ALLOW INTERRUPTS 
.•ENABLE TTY INTERRUPTS 
.-SET UP GENERAL REGISTERS 

:COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 

.•CLEAR '7" CONDITION CODE 
.-SET ALL OTHER CONDITION CODES 

.•EXECUTE "SCANC" 

.•CHECK RESULTS 
•STORE THE PSU 

!-IF INTERRUPT ARE DISABLED. THE INSTRUCTION WAS NOT INTE 
;BR I DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 
.•CLEAR ALL UNUSED BITS 



afEXPPSU. CCODES .-CHECK PSU AGAINST EXPECTED VALUE 



64$ 

1 



a#SAVR6.SP 
65$ 

SP.ar8A0R6 

2 



FILL.R4 

66$ 

5 

TABLE. RS 

67$ 

4 



SRCAD.R5 

SRCLN.R2 

(R|),R4 

#177i00-R4 

ByFl(R4).FILL 

69$ 

CR5) + 

R2 

68$ 

70i 
5 

R5.R1 
71 i 



;BR. IF EQUAL 
;o********ftftftftftTEST 45 - ERROR 1ttt»».»»»».»».. 

;PSU ERROR 

.•EXPECTED PSU IS STORED AT 'tXPPSU" 
.•ACTUAL PSU IS STORED AT 'tCODES" 

.•VERIFY STACK POINTER IS RESTORED 
•BR IF OK 

•STORE BAD SP VALUE 

;***************TEST 45 - ERROR 2*************** 

; STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6" 

.•CHECK R4 UNCHANGED 
;BR IF OK 

;***ftft*ftftft******TEST 45 - ERROR 5*»»*»»*»*"**** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
•BR IF Ok 

'•ft*ftftft**********TEST 45 - ERROR 4*************** 

:R5 SHOULD STILL EQUAL CONTENTS OF LOCATION '7ABLE" 

.-POINT R3 TO SOURCE STRING 
.•STORE SOURCE LENGTH IN R2 
.-USE SOURCE BYTE AS INDEX 
.-CLEAR ANY BYTE SIGN EXTENSION 
;"AND" TABLE ENTRY UITH MASK 

.•POINT TO NEXT SOURCE BYTE 

; DECREMENT BYTE COUNT 

:BR. IF NOT FINISHED 

;CHiCK ROsRENAINING SOURCE LENGTH 

;*ft*************TEST 45 - ERROR 5***»**"***"*» 

;SCAN LENGTH ERROR 

.•CHECK RIsADDRESS OF CHARACTER 
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T45 TEST INTERRUPTA8ILITY OF '-SCANC' 



SEQ 0071 



3«52 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

5860 

386. 

5862 

5863 

5864 

586S 

5866 

5867 

5868 

5869 

5870 

3871 

3872 

3873 

5874 

3875 

3876 

3877 

3878 

3879 

3880 

5881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

5890 

3891 

3892 

3893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

3901 

5902 

5905 

3904 

5905 

5906 

5907 



015044 

013046 

015046 
015052 



015142 
013142 
013146 
013150 
013154 



013156 
013156 
013162 
013164 

013166 
015172 



104006 



106427 000200 
016777 165610 



ERROR 6 



165604 



71$: 
40S: 



HTPS 
NOV 



#200 

TPSW.aiVECT 



;***********«***TESr 45 - ERROR 6* 
;SCAN ADDRESS ERROR 



.•RESTORE PSU TO PRIORITY 7 
.•RESTORE TRAP CATCHER 



*TEST 46 



TEST "SPANC" UITH NON-flEMBER CHARACTER IN SOURCE. SL .6T. 0 AT CHARACTER 



*THIS TEST VERIFIES THAT "SPANC" INDICATES A NON-MENBER 
*FOUND. 

*THE RESULT IS R1 EQUALS ADDRESS OF NON-NEMBER CHARACTER, RO 
•EQUALS THE REMAINING SOURCE LENGTH. AND ALL 
•CONDITION CODES CLEAR. 



013060 


000004 




013062 


004567 


001162 


01306^. 


000020 




013070 


016310 




013072 


U7777 




013074 


\77777 




013076 


000007 




013100 


012767 


016310 


013106 


004567 


001232 


013112 


000200 




013114 


004767 


001064 


013120 


016705 


165532 


013124 


000244 




013126 


000267 




013130 


076043 




013132 


004767 


001232 


013136 


001401 




013140 


104001 





tST46: 



SCOPE 
JSR 



165550 



MOV 
JSR 
.WORD 
JSR 
MOV 
CLZ 

♦SEV.'SEZiSEC 



R5.PREP 

20 

BUF1 

NXM 

NXM 

7 

«8UF1. TABLE 
R5.XPSU 
200 

PC.6ENR 
TABLE «R5 



023706 000676 
001403 

010637 000700 
104002 



026704 165472 
001401 
104003 

026705 165464 
001401 



64$: 



SPANC 

JSR 
BEQ 
ERROR 



CMP 
BEO 
MOV 
ERROR 



PC.CKCC 
64$ 

1 



a#SAVR6.SP 
65$ 

SP,»rBA0R6 



.'SET UP INSTRUCTION ARGUMENTS 
: SOURCE LENGTH 
.SOURCE ADDRESS 

; STORE NON-ZERO VALUES TO TEST R2 % R3 
: UNAFFECTED BV DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANCj CHARACTER 

.•STORE EXPECTED PSU VALUE 

.SET UP GENERAL REGISTERS 

.•CLEAR '7" CONDITION CODE 
;SET ALL OTHER CONDITION CODES 
.•EXECUTE "SPANC" 

•CHECK RESULTS 

•CHECK PSU. GENERATE CONDITION COOES 



65$: 



66$: 



CMP FILL.R4 
BEQ 66$ 
ERROR 3 



CMP 
BEQ 



TABLE. RS 
67$ 



;***************TEST 46 - ERROR 1*»»*«**»«*««««* 
*PSU ERROR 

•EXPECTED PSW IS STORED AT "EXPPSW" 
;ACTUAL PSW IS STORED AT "CCOOES*^ 

.•VERIFY STACK POINTER IS RESTORED 
;BR IF OK 

.STORE BAD SP VALUE 

;***************TEST 46 - ERROR 2*********»****» 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.ERRONEOUS VALUE IS AT 'BADR6^' 

.•CHECK R4 UNCHANGED 
;fiR IF OK 

;*****ft*********TEST 46 - ERROR 3»**"*****"*** 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.CHECK R5 UNCHANGED 
;6R IF OK 
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013174 104004 



01 
01 
01 
01 
01 



176 
176 
202 



013214 
013222 
013224 

013232 
013234 
013236 

013240 
013242 
013244 

013246 



3908 
3W 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 

l?H 

5924 
3925 
3926 
3927 
3928 
3929 
3930 
5931 
5932 
3933 
39 3A 
3935 
3956 
3937 
3938 
5939 
3940 
3941 
3^42 
39^3 
3944 
39^5 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3955 
3954 
5955 
3956 
3957 
3958 
3959 
3960 
5961 
3962 

5963 013330 



013246 
013250 
013254 
013256 
013260 
013262 
013264 
015266 
013274 
013300 
013302 
013506 
013312 
01 3314 



016703 165444 
016702 165436 
111304 

042704 177400 

136467 016310 

001403 

105725 

005302 

001366 

020200 

001401 

104005 

020301 
001401 
104006 



67S: 
68$: 



165432 



69$: 
70$: 
71$: 



ERROR 



NOV 

my 

N0V8 

BIC 

BITS 

BEQ 

TSTB 

DEC 

BNE 

CMP 

BEQ 

ERROR 

C«P 
BEQ 
ERROR 



H 6 

UITH NON-nEMBER CHARACTER IN SOURCE, SL .6T. 0 AT CHARACTER SEO 0072 

;««*ft**«*«««t«*«TEST 46 - ERROR 4»*"»»**"»**»» 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE** 



SRCAD,R3 

SRCLN,R2 

(R3),R4 

#177i00,R4 

BUF1(R4),FILL 

69$ 

(R3}-^ 

R2 

68$ 

R2,R0 

70$ 

5 

R3.R1 

7li 

6 



.•POINT R3 TO SOURCE STRING 
.•STORE SOURCE LENGTH IN R2 
.USE SOURCE BYTE AS INDEX 
.CLEAR ANY BYTE SIGN EXTENSION 
:"AND" TABLE ENTRY WITH MASK 

.POINT TO NEXT SOURCE BYTE 

.-DECREMENT BYTE COUNT 

:8R. IF NOT FINISHED 

.CHECK RO-REMAINING SOURCE LENGTH 

;**********ftt***rEST 46 - ERROR 5« 

;SPAN LENGTH ERROR 

.•CHECK Rl-ADDRESS OF CHARACTER 

;***************TEST 46 - ERROR 6* 
.-SPAN ADDRESS ERROR 



•TEST 47 



TEST "SPANC" FAILS ONLY MEMBER CHARACTERS IN SOURCE 



•PROPER TERMINATION OF THIS TEST IS RO-O. R1 EQUALS 
•ADDRESS^I OF LSB OF SOURCE. AND ALL CONDITION CODES 
•CLEAR EXCEPT Z=l 



000004 
004567 
000100 
016310 
^77777 
\77777 
000377 
012767 
004567 
000204 
004767 
016705 
000244 
000267 



013316 076043 



% 



15520 
.15524 
015526 



004767 
001401 
104001 



000774 



016510 
001044 

000676 
165344 



001044 



165362 



*************************************************************** 

TST47: SCOPE 

JSR R5,PREP .'SET UP INSTRUCTION ARGUMENTS 

: SOURCE LENGTH 
.•SOURCE ADDRESS 

.•STORE NON-ZERO VALUES TO TEST R2 % R3 
; UNAFFECTED BY DIS STRING INSTRUCTIONS 
.•SEARCH CMASK FOR SCANC/SPANC] CHARACTER 



MOV 
JSR 
.WORD 
JSR 
MOV 
CLZ 

♦SEV!SEZ!SEC 



R5.PREP 
106 
BUF1 
NXM 
NXM 
377 

«8UF1. TABLE 
R5.XPSW 
20^ 

PC.GENR 
TABLE. R5 



SPANC 

JSR 
BEQ 
ERROR 



PC.CKCC 
64$ 

1 



.STORE EXPECTED PSU VALUE 

.•SET UP GENERAL REGISTERS 

.•CLEAR '7" CONDITION CODE 
.SET ALL OTHER CONDITION CODES 
.EXECUTE "SPANC" 

.•CHECK RESULTS 

.•CHECK PSW. GENERATE CONDITION CODES 



64$: 



;***************TEST 47 - ERROR !••• 
•PSU ERROR 

•EXPECTED PSU IS STORED AT 'tXPPSW 
.ACTUAL PSy IS STORED AT "CCODES" 



L 
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7A 

TEST '"SPANC 



I 6 

Fails only member characters in source 



SEO 0073 



3964 

3965 

3966 

3967 

396« 

3969 

3970 

3971 

39^2 

3973 

3974 

3975 

59/6 

5977 

3978 

3979 

3980 

5981 

3982 

3983 

3984 

3985 

3986 

398/ 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4C?5 

'.OOo 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 



013330 023706 000676 

013334 001403 

013336 010637 000700 

013342 104002 



01 






013344 


026704 


165304 


013350 


001401 




013352 


104003 

1 w~wwv 




013354 


026705 


165276 


013360 


001401 




013362 


1 04004 




013364 






013364 


016703 


165256 


013370 


01670? 


165250 


013374 


1 1 1 304 




013376 


042704 


177400 


013402 


136467 


016310 


013410 


001403 




013412 


105723 




013414 


005302 




013416 


001366 




013420 


020200 




013422 


001401 




013424 


104005 




013426 


020301 




013430 


001401 




013432 


104006 




013434 







165244 



013434 

013*42 
013444 
013452 
013454 
013462 
013464 



105777 165076 
100547 

026767 165100 
001007 

032767 000001 
001403 

005767 165104 



65S: 

66S: 

67S: 
68$: 



e9S: 
70$: 
71$: 



CMP a*SAVR6.SP 

BEQ 65$ 

no* SP.ftr8ADR6 

ERROR 2 



CMP fJLL,R4 

BEQ 66$ 

ERROR 3 

CMP TABLE, R5 

BEQ 67$ 

ERROR 4 



MOV SRCA0.R3 

MOV SRCLN,R2 

MOVE (R3),R4 

BIG #1 77400, R4 

BITS BUF1(R4),FILL 

BEQ 69$ 

TST8 (R3)+ 

DEC R2 

BNE 68$ 

CMP R2.R0 

BEQ 70$ 

ERROR 5 

CMP R3.R1 

BEQ 7li 

ERROR 6 



.-VERIFY STACK POINTER IS RESTORED 
'8R IF OK 

•STORE BAD SP VALUE 

;*t**tt**ttt**ttTEST 47 - ERROR 2***»**»**»**««* 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'BADR6'^' 

.•CHECK R4 UNCHANGED 
;8R IF OK 

;t***t*t**t*****rEST 47 - ERROR 3***"**"""" .. 

;R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
.•CHECK R5 UNCHANGED 
;8R IF OK 

;t*******ft**«***TEST 47 - ERROR 4*************** 

;R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

.POINT R3 TO SOURCE STRING 
.•STORE SOURCE LENGTH IN R2 
:USE SOURCE BYTE AS INDEX 
.•CLEAR ANY EiYTE SIGN EXTENSION 
;"AND" TABLE ENTRY WITH MASK 

.•POINT TO NEXT SOURCE BYTE 

.•DECREMENT BYTE COUNT 

:BR. IF NOT FINISHED 

;CH§CK RO>REMAINING SOURCE LENGTH 

;*ft**ft*ft******ft*TEST 47 - ERROR 5*** 

.•SPAN LENGTH ERROR 

.•CHECK RIsADDRESS OF CHARACTER 

;*ft*ft**ft********TEST 47 - ERROR 6»»»»*»"***"" 

;SPAN ADDRESS ERROR 



••TEST 50 TEST INTERRUPTABILITV OF "SPANC" 

jiTHirfESriNTERRUPTS THE "SPANC" INSTRUCTION. RESUMES 
.-•EXECUTION AFTER THE INTERRUPT. AND CHECKS RESULTS. 
.••RESULTS ARE R1 EQUALS ADDRESS OF FIRST BYTE WHKH,^ 
.-•WHEN ANDED WITH MASK^O. RO EQUALS REMAINDING SOURCE 
.••LENGTH. AND ALL CONDITION CODES CLEAR 



t§T50: SCOPE 
TSTB 
BMI 

165206 CMP 
BNE 

165124 BIT 
BEQ 
TST 



aSUR .-TEST BIT 7 OF SUR 

SEOP ;SKIP TO NEXT TEST IF SET 

$TPSJCSR ;IS SLU USED FOR INTERRUPTS THE CONSOLE? 

SPCC6nT BR, IF NOT t PERFORM INTERRUPTABILITY TEST 

#BITO,$ENV .-IF YES, CHECK IF ON APT 

SPCCONT -BR IF NOT UNDER APT, AND DO THIS TEST 

$PASS .-CHECK IF ON FIRST PASS 



L 
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4020 
4021 
4022 
4023 
4024 
4025 
4026 
,027 
4028 
4029 
4C50 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4030 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
40fr5 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 



013470 
015472 
015472 
015476 
015500 
013502 
013504 
013506 
015510 
015516 
013524 
013532 
013536 
013542 
015550 
015554 
015556 
015562 
015570 
015574 
015600 
015604 



001154 

004567 
000400 
016510 
M7m 
M7777 
000177 
012767 
012767 
012777 
005077 
004767 
015777 
004567 
000000 
106427 
052777 
004767 
010657 
016705 
000277 



015606 076045 



013610 
015614 
015622 
013624 
015652 
015640 
015642 



013644 
015644 
013650 
013652 
015656 



013660 
013660 
015664 
015666 

015670 
015674 
013676 

015700 
015700 
015704 



106767 
052777 
001562 
042767 
025767 
001401 
104001 



000552 



016510 
015606 
014506 
165150 
000720 
000554 
000570 

000000 
000100 
000410 
000676 
165052 



165056 
000100 

177400 
000674 



025706 000676 
001405 

010657 000700 
104002 



026704 164770 
001401 
104005 

026705 164762 
OOUOl 
104004 



P16705 164742 
016702 164754 



SPCCONT; 



BNE 

■jSR 



165140 




Mm/ 


165144 




nov 


165132 




NOV 






CLR 






JSR 


165112 




NOV 






JSR 






.WORD 






HTPS 


165070 




BIS 




REPSPN: 


JSR 






NOV 






nov 






sec 




SPN: 


SPANC 



165056 

165040 
165032 



64$: 



65$: 

66$: 
67$: 



HFPS 

BIT 

BNE 

BIC 

C«P 

BED 

ERROR 



C«P 
BEO 

mv 

ERROR 



CMP 
BEO 
ERROR 

C«P 
BEO 
ERROR 



NOV 
NOV 



J 6 

ITERRUPTABILITV OF "SPANC" 



SEO 0074 



$EOP 

R5,PREP 

406 

BUF1 

NXM 

NXN 

177 

«BUF1, TABLE 

#SPN,PCI 

#lNTR,aTVECT 

iTPSW 

PC.TDONE 

a#$NULL,aTBUF 

R5, XPSU 

00 

#0 

f100,aTCSR 
PCGENR 

SP,airsAVR6 

TABLE, R5 



CCODES 
#100,aTCSR 
REPSPN 

#177400,CC00ES 



;IF NOT ON FIRST PASS, SR I SKIP THIS TEST 

:SET UP INSTRUCTION ARGUMENTS 

; SOURCE LENGTH 

.SOURCE ADDRESS 

; DESTINATION LENGTH 

.•DESTINATION ADDRESS 

;FILL CHARACTER 

.•STORE PC OF TEST INSTRUCTION 

.•POINT TTY VECTOR TO 'NTERRUPT ROUTINE 

.•ALLOW INTERRUPTS AFTER TTY INTERRUPT 

.•SEND CARRIAGE RETURN 
.•STORE EXPECTED PSU VALUE 

;SET PSU TO ALLOW INfERRUPTS 
.•ENABLE TTY INTERRUPTS 
;SET UP GENERAL REGISTERS 

.•COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 

;SET ALL CONDITION CODES 

.•EXECUTE "SPANC" 

.•CHECK RESULTS 
'STORE THE PSW 

•IF INTERRUPT ARE DISABLED, THE INSTRUCTION WAS NOT INTE 
;BR % DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 
.•CLEAR ALL UNUSED BITS 



aiTEXPPSW.CCODES .•CHECK PSW AGAINST EXPECTED VALUE 
64$ ;8R, IF EQUAL 

1 ;**ftftftft**ft******TEST 50 - ERROR 
•PSW ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW 
;ACTUAL PSW IS STORED AT "CCODES" 

afSAVR6,SP .VERIFY STACK POINTER IS RESTORED 

65$ •BR IF OK 

SP,a«BADR6 -STORE BAD SP VALUE _ 

2 .•••••••••••**»*TEST 50 - ERROR 2**«*******««*** 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED VALUE OF SP IS STORED AT "SAVR6" 
.•ERRONEOUS VALUE IS AT 'W^W' 

FILL,R4 .CHECK R4 UNCHANGED 

66$ ;BR IF OK 

3 ;***************TEST 50 - ERROR 3»«»***»*»*»*t** 

:R4 SHOULD STILL EQUAL CONTENTS OF LOCATION 'TILL" 
TABLE, RS : CHECK R5 UNCHANGED 

67$ :BR IF OK 

4 ;**•*•••*•« •****TEST 50 - ERROR 4«*»«*»«*«**«««* 

:R5 SHOULD STILL EQUAL CONTENTS OF LOCATION "TABLE" 

SRCAD,R3 .POINT R3 TO SOURCE STRING 

SRCLN,R2 .'STORE SOURCE LENGTH IN R2 
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4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 



013710 
013712 
013716 
013724 
013726 
013730 
013732 
013734 
013736 
013740 

013742 
013744 
013746 

013750 

013750 
013754 



013762 
013762 
013764 
013770 
013774 
014002 
014004 
014006 
014010 
014012 
014014 
0140^6 
014022 
014026 
014030 
014032 
014036 

014040 
014040 
014044 
014046 
014050 
014052 
014054 
014056 
0U060 
014060 
014062 



111304 

042704 177400 

136467 016310 164730 

001403 

105723 

005302 

001366 

020200 

001401 

104005 

020301 
001401 
104006 



106427 000200 

016777 164706 164702 



68S: 



000004 

005067 164512 

005267 164600 

042767 100000 164572 

005327 

000001 

003024 

012737 

000001 

014004 

104401 C14130 
013700 000042 
001414 
005046 

012746 014040 
000426 



013700 000042 

001405 

000005 

004710 

000240 

000240 

000240 

104400 

042716 000020 



69S: 

70$: 

71$: 
40$: 



76 

TEST 

n0V8 

BIC 

BITS 

BEQ 

TSTB 

DEC 

BNE 

C«P 

BEQ 

ERROR 



K 6 

INTERRUPTA8ILITY OF "SPANC" 



SEQ 0075 



(R3)-R4 

#1 77400, R4 

BUF1(R4),FILL 

69$ 

(R3)* 

R2 

66$ 

R2.R0 

70i 

5 



C«P R3.R1 
BEQ 71 i 
ERROR 6 



HTPS 
NOV 



0200 

TPSW.8TVECT 



.S8TTL END OF PASS ROUTINE 



:USE SOURCE 6VTE AS INDEX 

: CLEAR ANY BYTE SIGN EXTENSION 

;"AND" TABLE ENTRY WITH MASK 

.•POINT TO NEXT SOURCE BYTE 

.-DECREMENT BYTE COLMT 

;BR. IF NOT FINISHED 

.-CHECK RO-REMAINING SOURCE LENGTH 

;***************TEST 50 - ERROR 5»»»»»*»*»*****' 

.-SPAN LENGTH ERROR 

.-CHECK R1 -ADDRESS OF CHARACTER 

;*************t*TEST 50 - ERROR 6*************** 
.-SPAN ADDRESS ERROR 



.•RESTORE PSW TO PRIORITY 7 
.-RESTORE TRAP CATCHER 



*INCREMENT THE PASS NUMBER ($PASS) 
•IF SW12=1 INHIBIT TRACE TRAP 
*IF THERES A MONITOR GO TO IT 
*IF THERE ISN'T JUMP TO BEGIN 



$EOP: 



SCOPE 




CLR 


$TSTNM 


INC 


$PASS 


BIC 


#1 00000. $PASS 


DEC 


(PC)* 


.WORD 


1 


B6T 


$D0AGN 


MOV 


(PC)*.8(PC)+ 


.WORD 


1 


$EOPCT 




TYPE. 


ENDMS6 


MOV 


a#42.R0 


BEQ 


$DOAGN 


CLR 


-(SP) 


MOV 


#fCLR.T.-(SP) 


BR 


$RTRN 



$CLR.T: 

MOV 
BEQ 
RESET 
SENDAO: JSR 
NOP 
NOP 
NOP 

TRAP 
BIC 



$D0A6N: 



m2,M 
$D0A6N 

PC.(RO) 



#20. (SP) 



:;ZERO THE TEST NUMBER 
:; INCREMENT THE PASS NUMBER 
.-.-DON'T ALLOW A NEG. NUMBER 
.-.•LOOP? 

■ •YES 

••RESTORE COUNTER 



;TYPE "END PASS" 

::GET MONITOR ADDRESS 

.•.-BRANCH IF NO MONITOR 

;;INSURE THE 'T* BIT IS CLEAR 

;; SETUP FOR AN RTI OR RTT 

;;G0 DO AN RTI OR RTT TO LOAD THE PSW 

.-.-WITH A CLEARED 'T' BIT 

.-.-INSURE RO CONTAINS THE MONITORS 

.-.•RETURN ADDRESS 

;; CLEAR THE WORLD 

;:60 TO MONITOR 

;;SAVE ROOM 

;;FOR 

;.-ACTl1 

.-.-PUSH OLD PSW AND PC ON STACK 
;; CLEAR THE 'T* BIT 



0UU4 
0U150 
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4132 
4133 
4134 
4135 
^136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4U5 
4146 
4147 
<.148 
4149 
4150 
4151 
.152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
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END OF PASS ROUTINE 



L 6 



SEO 00 '6 



014066 


032777 


010000 


014074 


001005 




014076 


005167 


000020 


014102 


100402 




014104 


052716 


000020 


O 't .110 


012746 


014116 


014114 


000002 




014116 






014116 


000137 




014120 


001330 




014132 


000000 




014124 


377 


377 




0141^0 




014130 


005015 


047105 


014136 


040520 


051523 




014144 





011637 000702 
104200 



014152 000000 



014154 
014160 



011637 000702 
104204 



014162 000000 



014164 
0U170 



011637 000702 
104210 



014172 000000 



014174 
014200 



011637 000702 
104220 



014202 000000 



014204 
014210 
014214 
Q14220 
014224 
014230 



016700 
016701 
016702 
016703 
016704 
016705 



164434 
164432 
164430 
164426 
164424 
164422 



000 

020104 
000 



IS: 

SRTRN: 



SLOOP: 

SRTNAD: 

STBIT: 

SENULL: 

ENDMSG: 



BIT 
BNE 
COM 

Bni 

BIS 
NOV 
RTI 



J«P 

.WORD 

.WORD 

.BYTE 

.EVEN 

.ASCIZ 

.EVEN 



«8IT12,aSUR 
IS 

STBIT 
IS 

#20, (SP) 
#SLOOP.-(SP) 



8 (PC)* 
BEGIN 

0 

-l.-l.O 



;:RUN WITH TRACE TRAP? 
* *BR IF NO 

;;IS IT TIME FOR TRACE TRAP 
;;BR IF NO 
;;SET TRACE TRAP 
;;JUHP TO START Of TEST 
;;RETURN~THIS IS CHANGED TO 
;;AN "RIJ" If "HJV IS A LEGAL 
.-.•INSTRUCTION 

: .-RETURN 

;;'r' BIT STATE INDICATOR 
;;NULL CHARACTER STRING 



<15><12>/END PASS/ 



.•ROUTINE TO REPORT UNEXPECTED TRAPS TO LOCATION 0 
TZERO: MOV (SP) .ftrOLDPC .'GET PC*2 WHERE UNEXPECTED TRAP OCCURRED 

ERROR 200 ;»«»****»********ERROR 200*************** 

.•UNEXPECTED TRAP TO LOCATION 0 
;'X)LDPC" CONTAINS THE PC*2 OF THE TRAP OCCURRENCE 

HALT ;PROGRAn MUST BE RESTARTED AT THIS POINT 

.•ROUTINE TO REPORT UNEXPECTED TRAPS TO LOCATION 4 
TIMTRP: MOV (SP).a#OLDPC ;6ET PC*2 WHERE UNEXPECTED TIMEOUT TRAP OCCURRED 

ERROR 204 ;*»»»**»»»»»»»»»eRROR 204*************** 

.•UNEXPECTED TRAP TO LOCATION 4 
;'t)LDPC" CONTAINS THE PC*2 OF THE TRAP OCCURRENCE 

HALT .-PROGRAn MUST BE RESTARTED AT THIS POINT 

.•ROUTINE TO REPORT UNEXPECTED TRAPS TO LOCATION 10 
ILLTRP: MOV (SP).»rOLOPC .•GET PC*2 WHERE UNEXPECTED ILLEGAL INSTRUCTION TRAP OCCU 

ERROR 210 ;***************ERROR 210*************** 

;UNEXPECTED TRAP TO LOCATION 10 
;'X)LDPC" CONTAINS THE PC*2 OF THE TRAP OCCURRENCE 

HALT .-PROGRAM MUST BE RESTARTED AT THIS POINT 

.•ROUTINE TO REPORT UNEXPECTED TRAPS TO LOCATION 20 
lOTTRP: MOV (SP).a#OLDPC :GET PC*2 WHERE UNEXPECTED lOT INSTRUCTION TRAP OCCURRED 

ERROR 220 ;*****»»»»»***»«ERROR 220*************** 

.UNEXPECTED TRAP TO LOCATION 20 
:'X)LDPC" CONTAINS THE PC*2 OF THE TRAP OCCURRENCE 

HALT .-PROGRAM MUST BE RESTARTED AT THIS POINT 

.SUBROUTINE TO SETUP GENERAL REGISTERS FOR INSTRUCTION EXECUTION 

GENR: MOV SRCLN.RO ; STORE SOURCE LENGTH 

MOV SRCAD.R1 :STORE SOURCE ADDRESS 

MOV DSTLN,R2 .STORE DESTINATION LENGTH 

MOV 0STAD.R3 .STORE DESTINATION ADDRESS 

MOV FILL.R4 ; STORE FILL CHARACTER 

MOV TABLE .R5 
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H 6 



SEO 0077 



4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

42?6 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 



014234 
014240 
014246 



014250 
014254 
014260 
014264 
014270 
014274 



014276 
014302 
014304 
014306 
014312 
014314 
014316 
014320 
014322 



014324 
014330 
014332 
014334 
014336 
014340 
014342 



014344 
014350 
014352 
014356 
014360 
014366 



014370 
014374 
014402 
014410 



010637 
062737 
000207 



012567 
012567 
012567 
012567 
012567 
000205 



016700 
005300 
105020 
016701 
105020 
005301 
001375 
105020 
000207 



012700 
012502 
012501 
112021 
005j02 
001375 
000205 



012537 
106700 
032700 
001403 
052737 
000205 



106767 
042767 
023767 
000207 



000676 

000002 000676 



164370 
164366 
164364 
164362 
164360 



164350 
164336 



NOV 

ADD 
RTS 



PREP: 



CLDST: 



CONTCL: 



016310 



000674 
000020 

000020 000674 



XPSU: 



1$: 



164276 CKCCi 
177400 164270 
000674 164262 



SP.a#SAVR6 
«2,»rSAVR6 

PC 



.COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 
.ADJUST SAVED SP BECAUSE OF JSR TO THIS ROUTINE 



.•SUBROUTINE TO PREPARE INSTRUCTION PARAMETERS 

MOV (R5}^.SRCLN ;SET SOURCE LENGTH 

NOV (R5}-^.SRCAD :SET SOURCE ADDRESS 

NOV (R5)*.DSTLN :SET DESTINATION LENGTH 

NOV (R5}4.DSTAD ;SET DES.INATION ADDRESS 

NOV (R5)*,FILL ;SET FILL CHARACTER 

RTS R5 .-RETURN 



.•SUBROUTINE TO CLEAR DESTINATION t BOUNDARY BYTES 



NOV 
DEC 
CLR6 
NOV 
CLR8 
DEC 
BNE 
CLR8 
RTS 



GENSRC: 



GENCON: 



DSTAD.RO 
RO 

(RO)* 
DSTLN.Rl 
(RO)* 
R1 

CONTCL 
(R0) + 
PC 



.-SUBROUTINE TO GENERATE 

NOV /VBUFKRO 

NOV (R5)*.R2 

NOV (R5)+,R1 

NOVB (R0)-»,(R1}4- 

DEC R2 

BNE GENCON 

RTS R5 



.-POINT RO TO DESTINATION AREA 
.-CLEAR LOWER BOUNDARY BYTE OF 

.-STORE DEST. BYTE COUNT IN R1 
.-CLEAR DESTINATION 
.-DECREMENT DEST. BYTE COUNT 
;BR. IF NOT FINISHED 
.-CLEAR UPPER BYTE BOUNDARY OF 
.-RETURN 

A SOURCE STRING 

.-POINT RO rn THE PATTERN STORED 
; STORE SOURCE BYTE COUNT IN R2 
.-POINT to IhF. SOURCE ADDRESS 
.TRANSFER PAlltMi TO SOURCE 
.DECREMENT BYTE COUNT 
.-8R« IF NOT FINISHED 
.-RETURN 



DEST 



DEST 



.•SUBROUTINE TO RECORD EXPECTED PSW 

NOV (R5)-^.a#EXPPSW .-STORE EXPECTED PSW VALUE 

NFPS RO 

BIT #T8IT.R0 

BEQ 1$ 

BIS #T8IT.a«EXPPSU .-OTHERWISE SET T-6IT IN EXPECTED PSW VALUE 

RTS R5 



.-SUBROUTINE TO CHECK THE PSW 

;**NOTE: CONDITION CODES GENERATED ARE TO BE PASSED BACK 
TO THE MAIN PROGRAM. THEREFORE NO CODES SHOULD BE 
ADDED HERE THAT WILL ALTER THE CONDITION CODES. 



;** 

• ** 
# 

NFPS 
BIC 
CMP 
RTS 



CCODES ; STORE THE PSW 

#1 77400. CCODES .-CLEAR ALL UNUSED BITS 

afEXPPSW. CCODES .-CHECK PSW AGAINST EXPECTED VALUE 

PC .-RETURN 



.-SUBROUTINE TO SET TEMP IF REQUIRE. WHICH INDICATES GO TO NEXT TEST 



.MAIN. MACYll 30(10A6) 22-JAN-82 08:44 PAGE 79 
CVKAIB.PII 22>JAN-32 08:43 END OF PASS ROUTINE 



N 6 



SEQ 0078 



4244 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

42'j2 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

428S 

tl^ 

4288 
4289 
4290 
4291 
4?9i 

4< 
4; 
4; 
4; 
4< 



95 

?5 

98 
99 



014412 
014416 
0U422 
014424 
014432 
014434 
014442 
014444 
014450 
014452 
014454 
014460 



014462 
014466 
014472 
014474 
014500 
014502 



005067 
105777 
100414 
026767 
001007 
032767 
001403 
005767 
001001 
000207 
005267 
000207 



164266 
164116 

164120 

000001 

164124 

164224 



164226 
164144 



;TE«P 
;TEKP 
SKPINT: CLR 
TSTB 
BNI 
C«P 
BNE 
BIT 
BEQ 
TST 
BNE 

CONTIN: RTS 
NEXTST: INC 
RTS 



0 => CONTINUE 

1 => GO TO DO 
TE«P 

aswR 

NEXTST 

$TPS,TCSR 

CONTIN 

«8IT0,$ENV 

CONTIN 

(PASS 

NEXTST 

PC 

TEMP 
PC 



UITN CURRENT TEST 

NEXT TEST 

.•CLEAR FLAG 

;TEST BIT 7 OF SWR 

;SXIP TO NEXT TEST IF SET 

;IS SLU USED FOR INTERRUPTS THE CONSOLE? 

;BR. IF NOT I PREFORM INTERRUPTABILITY TEST 

;1F YES, CHECX IF ON APT 

;BR IF NOT UNDER APT, AND DO THIS TEST 

.•CHECK IF ON FIRST PASS 

;IF NOT ON FIRST PASS. BR ft SKIP THIS TEST 
.•RETURN AND DO THE CURRENT TEST 
;SET FLAG. SKIP CURRENT TEST 
.•RETURN AND DO THE NEXT TEST 



005037 000704 
105777 164166 
100404 

005237 000704 

001572 

104300 



TDONE: 
IS: 



014504 000207 



CLR 
TSTB 
BMI 
INC 
BNE 
ERROR 



RETN: RTS 



.SUBROUTINE TO TEST FOR TRANSMIT DONE FLAG 



MTEMP 
aTCSR 
RETN 
a#TEMP 
1$ 
30u 

PC 



.•CLEAR A TIMER 
;IS SLU READY? 
.•BR IF READY 

.OTHERWISE INCREMENT TIMER 

;BR IF NOT TIMED OUT 

• ***************ERROR 300***** 

.•NEVER GOT TRANSMIT DONE FLAG 

.•RETURN 



.SUBROUTINE TO HANDLE TTY INTERRUPTS IN INSTRUCTION 
.•INTERRUPTABILITY TESTS 



014506 
014506 
014512 
014514 
014520 
014522 
014530 
014532 
0U540 



021667 164156 
001003 

032704 177400 
001004 

013777 000554 
000002 



042777 000100 
000002 



INTR: 

CMP 
BNE 

CKR4: BIT 
BNE 

164132 SEND: MOV 
RTI 

164120 CLRINT: BIC 
RTI 



{SP).PCI 
SEND 

#1 77400. R4 
CLRINT 

»r$NULL.aTBUF 
flOO.aTCSR 



;WAS PC AT INSTRUCTION UNDER TEST? 
:BR. IF NO 

;IF YES. CHECK UPPER BYTE OF R4 

;IF ZERO. INSTRUCTION WAS NOT INTERRUPTED-TRY AGAIN 

.•SEND ANOTHER CHARACTER 

.'RETURN 

:IF NON-ZERO. CLEAR INTERRUPT ENABLE 
; CONTINUE INSTRUCTION 



.SBTTL SCOPE HANDLER ROUTINE 



■ •»tttt»ttt*ttt*»»**»»»»««««»»**«*»»»««*»**»*t***»*************** 

liTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WLL IMCgEMENT 
•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPUY RE6.(0ISPLAY<7:0» 
;*AND LOAD THE ERROR FLAG (SERFL6) INTO 01SPLAY<15:08> 
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SWUs1 LOOP ON TEST 

;*SW09*1 LOOP ON ERROR 

;*SW08=1 LOOP ON TEST IN SWR<5:0> 

:*CALL 

r* SCOPE ;;SCOPE*IOT 



)U54< 
)U54! 



032777 040000 



f SCOPE: 
163770 1$: BIT 



IBITU.aSUR :;LOOP ON PRESENT TEST? 



.MAIN. MACYll ^0(104^) 
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SCOPE HANDLER ROUTINE 



B 7 



4300 014550 001065 



(01 



[5 
>7 



10 

r 

li 

14 
15 
16 
4317 
4318 
4319 
4320 
4321 
43; 
43i 
43 

it 

43l 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
^352 
4355 
4354 




014552 000416 



014554 
014560 
0145 
0145 
01457 
714600 
jl4602 
)14606 
)14610 
014610 
014616 
014620 
014624 
)14630 
14634 
)14636 
)14642 
014644 
014652 
014654 
014662 
014664 
014670 
014674 
014702 
014706 
0U712 
014716 
014724 
014732 
014736 



014740 
014746 
)14754 
14756 
14760 
)U762 
014764 
014766 
014770 
014774 
015000 
015006 
015010 



1^ 



032777 
001407 
017746 
042716 
122667 
001433 
105767 
0Q1412 
032777 
001404 
016767 
000420 
105067 
105267 
116767 
011667 
011667 
005067 
112767 
016777 
016716 
000002 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010^7 

80^000 
000776 



000004 
014600 
177060 
000004 



000004 



000004 



000400 163722 

163714 

000300 
163646 



163641 

001000 

163630 

163613 
163606 
163602 
163600 
163576 
163642 
000001 
163552 
163550 



015122 
000340 



163544 
000126 
015012 



163666 
163624 

163670 



163571 
163610 



BNE 

:»»»»»SJARJ OF 
ixTSTR: BR 



SOVER ;;YES IF SU14«1 

CODE FOR THE XOR TESTER«#### 
6$ 





NOV 




nov 




TST 




NOV 




BR 


5S: 


CNP 




NOV 




BR 


6S::#/rmEND 




RIT 
01 1 








MOV 




BIC 




CNP8 




BEQ 


2$: 


TST8 




BEQ 




BIT 




BEQ 


7$; 


NOV 




BR 


4S: 


CLRB 


SSVLAD: 


INCB 




NOVB 




NOV 




NOV 




CLR 




NOVB 


SOVER: 


NOV 




NOV 




RTI 



a#ERRVEC,-(SP) 
#5$.MERRVEC 
a#1^7060 
(SP)^,a»ERRVEC 
SSVLAD 
(SP)*.(SP)+ 
(SP) -^.afERRVEC 
7S 



CODE FOR THE XOR TESTER##### 



;;IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A 'W" (N0P«240) 
.-.SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TINEOUT 
;:TINE OUT ON XOR? 
; .-RESTORE THE ERROR VECTOR 
::G0 TO THE NEXT TEST 
:; CLEAR THE STACK AFTER A TINE OUT 
.-.RESTORE THE ERROR VECTOR 
;:LOOP ON THE PRESENT TEST 



«BIT08.aSUR 
2S 

asuR.-(SP) 

#SSURNK,(SP) 

(SP) ♦.STSTNN 

SOVER 

SERFL6 

SSVLAD 

«BIT09.aSUR 

4S 

SLPERR.SLPADR 
SOVER 
SERFL6 
STSTNN 

STSTNN.STESTN 
(SP).SLPADR 
<SP). SLPERR 
SESCAPE 
«1,SERNAX 



;:LOOP ON SPEC. TEST? 
* *BR IF NO 

;;SET DESIRED TEST NUM. FRON SVR 
; .STRIP AWAY UNDESIRED BITS 
;;0N THE RIGHT TEST? 
;;BR IF VES 

;:HAS AN ERROR OCCURRED? 
::BR IF NO 
;;LOOP ON ERROR? 
* 'BR IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 



;;ZERO THE ERROR FLAG 
;; COUNT TEST NUNBERS 
;;SET TEST NUMBER IN APT MAILBOX 
;;SAVE SCOPE LOOP ADDRESS 
;;SAVE ERROR LOOP ADDRESS 
; .'CLEAR THE ESCAPE FRON ERROR ADDRESS 
::ONLY ALLOW 0NE(1> ERROR ON NEXT TEST 
STSTNN.aDISPLAV ; .-DISPLAY TEST NUMBER 
SLPADR, (SP) ; ; FUDGE RETURN ADDRESS 
.-.FIXES PS 



.S6TTL POWER DOWN AND UP ROUTINES 



•^OWER DOWN ROUTINE 
000024 iPWRDN: NOV f|ILLUP,afPWRV|C 



000026 



000024 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
HALT 
BR 



#340.a«^RVEC-^2 
RO.-(SP) 
R1. -(SP) 
R2. -(SP) 
R3.-(SP) 
R4.-{SP) 
R5.-(SP) 
aSWR.-(SP) 
SP.SSAVR6 
fSPWRUP.afPWRVEC 

.-2 



;;SET 
.-PRIO 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.SAVE 
;;SET 



FOR FAST UP 

.7 

RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
aSWR ON STACK 
SP 

UP VECTOR 



;.-HANG UP 
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POWER DOWN AND UP ROUTINES 



C 7 



SEQ ooao 



4356 

45S7 

4558 

4359 

4360 

4361 

4362 

4363 

4564 

4565 

4566 

4 567 

'568 

• 569 

Hi70 

4571 

4^72 

4573 

4574 

4575 

4576 

4577 

4378 

4379 

4580 

4381 

4582 

4383 

4384 

438v 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 



015012 
015020 
015024 
015030 
015054 
015036 
015042 
015046 
015050 
015052 
015054 
015056 
015060 
015062 
015070 
015076 
015^00 
015102 
015104 
015106 
015114 
015120 
015122 
015124 
015126 
015130 
015136 



015140 
015140 
015U4 
01SU6 
015154 
015160 
015164 
015172 



012737 
016706 
005067 
005267 
001375 
005067 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
015130 
012716 
014116 
042766 
005067 
000002 
000000 
000776 
000000 
005015 
000122 



105267 
001775 
016777 
005267 
011667 
162767 
117767 



015122 000024 
000102 
000076 
000072 

163440 
163472 



014740 000024 
000340 000026 



G00020 000002 
177002 



047520 042527 



163337 

163330 163366 

163332 

163332 

000002 163324 
163320 163314 



SPWRUP: 
1»: 



SPWRMG: 
$PURAD: 

SILLUP: 

SSAVR6: 
SPOUER: 



nov 

HOV 
CLR 
INC 
BNE 
CLR 

nov 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TYPE 

.WORD 

NOV 

.WORD 

BIC 

CLR 

RTI 

HALT 

BR 

0 

.ASCIZ 

.EVEN 
.EVEN 



#$ILLUP,a#PWRVEC 

$SAVR6,SP 

$SAVR6 

$SAVR6 ; 
1$ 

STSTNN 
(SP)-»,aSUR 
(SP)+, R5 
(SP) ♦,R4 
(SP)+, R3 
(SP)+,R2 
(SP)*. R1 
(SP)*, RO 

#$PWRDN,a#PURVEC 
#340,a#PURVEC*2 ; 

$POUER ; 

(PC)+,<SP) 

SLOOP 

#20,2(SP) 

STBIT : 



:;SET FOR FAST DOWN 

;GET SP 

.•WAIT LOOP FOR THE TTV 
;WAIT FOR THE INC 
:0F WORD 

;POP STACK INTO dSWR 

;POP STACK INTO R5 

;POP STACK INTO R4 

;POP STACK INTO R3 

.POP STACK INTO R2 

;POP STACK INTO R1 

;POP STACK INTO RO 

;;SET UP THE POWER DOWN VECTOR 

;PRI0:7 

REPOkT the power FAILURE 

.'POWER FAIL NESSA6E POINTER 

.•RESTART AT SLOOP 

.•RESTART ADDRESS 

.•CLEAR 'T* BIT 

.•CLEAR THE '7" BIT FLAG 



.-2 

<1 5X1 2>' "POWER" 



::THE POWER UP SEQUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 



.SBTTL ERROR HANDLER ROUTINE 



.SBTTL TYPE ROUTINE 

*******#******************************************************* 

*THIS ROUTINE WILL INCRENENT THE ERROR FLAG AND THE ERROR COUNT« 

*SAyE THE ERROR I TEN NUMBER AND THE ADDRESS OF THE ERROR CALL 

*AND TYPE OUT THE PC OF THE ERROR INSTRUCTION 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SWl5s1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TVPEOUTS 

*SW09s1 LOOP ON ERROR 

•CALL 

* ERROR N ;ERROR=ENT AND N-ERROR I TEN NUMBER 

• *************************************************************** 



SERROR: 
7$: 



INCB SERFLG ;SET THE ERROR FLAG 

BEQ 7S .-DON'T LET THE FLAG GO TO ZERO 

MOV STSTNM.aOISPLAY .'DISPLAY TEST NUMBER AND ERROR FLAG 

INC SERTTL ;1NC THE ERROR COUNT 

MOV (SP) .SERRPC ;6ET ADDRESS OF ERROR INSTRUCTION 

SUB #2 ScRRPC 

MOVB asiRRPCSITEMB .-STRIP AND SAVE THE ERROR ITEM CODE 
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0 7 



SEO COt^' 



4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

44?S 

4426 

4427 

4428 

4429 

44 50 

4431 

4432 

4433 

4434 

4433 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 



015200 
015206 
015210 
015214 

015220 
015224 
015230 
015230 
015236 
015240 
015244 
015246 
015254 
015260 
015262 
015266 
015270 
015272 
015300 
01 5302 
015306 
015312 
015314 
015320 
015320 
015326 
015330 
015332 
015332 



015334 
)15340 
)15342 
>15344 
)15346 
)15350 
)15354 
)15 
)15 



032777 
001010 
104401 
016746 

004767 
104401 

122767 
001011 
005767 
001375 
116767 
005267 
000777 
005777 
100001 
000000 
032777 
001402 
016716 
005767 
001402 
016716 

022737 
001001 
000000 

000002 



105767 
100002 
0000^ 




020000 163332 

000563 
163276 

000444 
000563 



000001 

163322 

163242 
163306 

163252 



163202 
163246 

163240 

014050 



163350 
163314 



001000 163240 3S: 



000042 



163217 



000002 
000001 



BIT 

BNE 
TYPE 

nov 

JSR 
TYPE 

CNP8 
BNE 
TST 
BNE 
NOVB 
INC 
BR 
TST 
BPL 
HALT 
BIT 
BEO 

nov 

TST 
BEO 

nov 

C«P 
BNE 
HALT 

6$: 

RTI 

.S8TTL TYPE 



20$: 



21$: 



22$: 
2$: 



4$: 



5$: 



«8IT13,.SyR 

20$ 

-$CRLF 

$ERRPC,-(SP) 

PC.TYPOCT 
,$CRLF 

«APTENV,$ENV 
2$ 

$nS6TYPE 
21$ 

$ITEnB,$FATAL 

$«S6TYPE 

22$ 

asuR 

3$ 

«8IT09,aSUR 
4$ 

$LPERR,(SP} 

$ESCAPE 

5$ 

$ESCAPE,(SP} 

mNPAD,a#42 
6$ 



ROUTINE 



.•SKIP TYPEOUT IF SET 
;S»CIP TYPEOUTS 

;SAVE $ERRPC FOR TYPEOUT 
.•ERROR ADDRESS 

;60 TYPE—OCTAL ASCII (ALL DIGITS) 



RUNNING IN APT NODE 
NO.SKIP APT ERROR REPORT 
FINISHED LAST NESSAGE? 
IF NOT. WAIT 

REPORT ERROR NUMBER TO APT 

TELL APT TO TAKE ERROR 

APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

LOOP ON ERROR SWITCH SET? 

BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT-11 AUTO-ACCEPT? 

BRANCH IF NO 

YES 

RETURN 



;*ROUTINE TO TYPE ASCIZ NESSAGE. NESSAGE NUST TERNINATE WITH A 0 BYTE. 
;*THE ROUTINE WILL INSERT A NUNBCR OF NULL CHARACTERS AFTER A LINE FEED.__^^^ 
*N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 



;*N0TE2: 
;*N0TE3: 

;»CALL: 
:*1) USING A 
TYPE 

;*0R 

TYPE 
NESADR 



$FILLS 
$F'LLC 



CONTAINS 
CONTAINS 



$TYPE: 



1$: 



163224 



000100 163215 



TSTB 

BPL 

HALT 

BR 

NOV 

NOV 

CNP8 

BNE 

BITB 



TRAP INSTRUCTION 
.NESADR 



$TPFLG 
1$ 

3$ 

RO.-(SP) 
a2(SP),R0 
fAPTENV.$ENV 
62$ 



THE NUNBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 



;. -NESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;;IS THERE A TERNINAL? 

* *BR IF YES 

••HALT HERE IF NO TERNINAL 
;; LEAVE 

* * SAVE RO 

:;GET ADDRESS OF ASCIZ STRING 
.•.•RUNNING IN APT NODE 
::NO.GO CHECK FOR APT CONSOLE 



fAPTSF OL.$ENVN ..SPOOL NESSAGE TO APT 



I 
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A 468 

A469 

4470 

4471 

447? 

4<,73 

4474 

4475 

<,476 

(,1,77 

A<./8 

44 79 

4 ',80 

4481 

4482 

4485 

4484 

4485 

4486 

4487 

<,488 

4489 

4490 

4491 

««492 

4493 

4494 

4495 

4*,96 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

450^ 

4505 

4506 

4507 

4Sn 
'.512 
<,513 
4514 
4515 
4516 
4517 
A518 
4519 
4520 
4521 
4522 
4S23 



015372 
01S374 
015400 
015404 
015406 
015414 
015416 
015420 
015422 
015424 
015426 
015432 
0154V, 

015440 
015442 
015446 
015450 
015452 
015454 
015456 
015462 
015464 
015470 
015474 
015476 

015502 
015506 
015510 
015514 
015520 



015522 
01552b 
015552 
015540 
015542 
015544 
015546 
015546 
015552 
015554 
015560 
015564 
015570 
015572 
015572 
015576 
015600 
015604 
015610 
015614 
015616 
015616 



001405 

010Q67 
004767 



152767 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
000563 
105067 
000755 
004767 
126726 
001350 
016746 

105366 
002770 
004767 
105367 
000770 



112716 
004767 
132767 
001372 
005726 
000724 

105777 
100022 
01/746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 



000004 
000372 

000040 163173 



000002 
00001 1 
000200 

000202 

000056 
163062 

163052 

000001 

000032 
000144 



000040 
000014 

000007 000124 



162772 

162766 
177600 
000025 



162746 

162742 
177600 
000021 



61$: 
62$: 

2$: 



60$: 
3$: 

4$: 



5$: 
6$: 



7f: 



BEO 

HOV 

JSft 

.WORD 

BITB 

BNE 

novB 

BNE 
TST 

nov 

ADD 

RJl 

CMPB 

BEQ 

CMPe 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

HOV 

DEC6 

BLT 

JSR 

DECS 

BR 



E 7 



62$ 

R0.61$ 
PC,SATY3 

0 

#APTCSUP,$ENV« 
60$ 

(RO)*,-(SP) 
4$ 

(SP)* 
<SP)*, RO 
#2.(SP) 

#HT.(SP) 
8$ 

#CRLF.(SP) 
5$ 

(BP)* 



SCHARCNT 
2$ 

PC.STYPEC 

$FJLLC,(SP)* 

2$ 

$NULL.-(SP) 

KSP) 
6$ 

PC.$TyPEC 

SCHARCNT 

7$ 



;HORiZONTAL TAB PROCESSOR 



8$: 
9$: 



$TrPEC: 



101$: 



102$: 



nova #' ,(sp) 

JSR PC.$TYPEC 

BITB f7,$CHARCNT 

BNE 9$ 

TST (SP)+ 

BR 2$ 

TST6 a$TKS 

BPL 10$ 

MOV a$TK8,-(SP) 

BIC #1 77600, (SP) 

CnPB #$XOFF,(SP) 

BNE 102$ 

TSTB a$TKS 

BPL 101$ 

novB a$TKS,(SP) 

BIC #1 77600, (SP) 

CnPB #$X0N,(SP) 

BNE 101$ 

TST (SP)+ 



;N0,60 CHECK FOR CONSOLE 
.SETUP MESSAGE ADDRESS FOR APT 
; SPOOL MESSAGE TO APT 
.MESSAGE ADDRESS 
;APT CONSOLE SUPPRESSED 
.YES. SKIP TYPE OUT 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;8R IF IT ISN'T THE TERMINATOR 

;ir TERMINATOR POP IT OFF THE STACK 

.-RESTORE RO 

.ADJUST RETURN PC 

.•RETURN 

.-BRANCH IF <HT> 

.-BRANCH IF NOT <CRLF> 

;POP <CR><LF> EQUIV 
;TYPE A CR AND LF 

; CLEAR CHARACTER COUNT 

:GET NEXT CHARACTER 

;60 TYPE THIS CHARACTER 

;IS IT TIME FOR FILLER CHARS.? 

;IF NO 60 GET NEXT CHAR. 
;:GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
;:DOES A NULL NEED TO BE TYPED? 
;;BR IF NO— GO POP THE NULL OFF OF STACK 
;;G0 TYPE A NULL 
;:D0 NOT COUNT AS A COUNT 
;;L00P 



.-.-REPLACE TAB WITH SPACE 
;;TVPE A SPACE 
.-.-BRANCH IF NOT AT 
;;TA8 STOP 

;;P0P SPACE OFF STACK 
::GET NEXT CHARACTER 

:;CHAR IN KYBD BUFFER? ;MJDC 

:;BR IF NOT .-MJDC 

;:6ET CHAR .'MJOC 

STRIP EXTRANEOUS BITS ;MJD( 

;;UAS CHAR XOFF ;MJDC 

;:BR IF NOT jMJDOOl 

;:IMir FOR CHAR :M 

;«JI 

;;GET CHAR ;MJI 

;; STRIP IT ;MJ! 

;:UAS IT XON? :M ^ 

;;BR IF NOT ;MJO$ 

;«jr 

:;FIX STACK '.Hit 
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SEQ 0083 



4524 

4525 

4526 

4527 

4528 

4529 

4550 

4531 

4532 

4533 

4554 

4555 

4556 

4557 

4558 

4539 

4540 

4541 

4542 

4545 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

457, 

457 

4574 

4575 

4576 

4577 

4578 

4579 



015620 
015620 
015624 
015626 
015654 
015642 
015644 
015650 
015652 
015660 
015662 
015664 
015666 



015670 
015676 
015700 
015702 
01';706 
015710 
015712 
015714 
015716 
015720 
015722 
015724 
015726 
015732 
015736 
015742 
015746 
015752 
)15754 
15756 
15760 
il5762 
015764 
015765 
015766 



105777 
100575 
116677 
122766 
001005 
105067 
000406 
122766 
001402 
105227 
000000 
000207 



112767 
010446 
010546 
016605 
0C50O4 
006105 
000404 
006105 
006105 
006105 
010504 
006104 
042704 
052704 
110467 
104401 
105367 
002360 
012605 
012604 
012616 
000207 



)15770 112767 
115776 112767 

16004 

16006 
n6014 



162724 

000002 
000015 

000014 

000012 



10S: 



162716 
000002 



000002 1$: 



STYPEX: 



TST8 


a$TPS 


::UAIT UNTIL PRINTER IS READY 


BPL 


lOi 


mvB 


2(SP),aSTPB 


:;LOAO CHAR TO 8E TYPED INTO DATA REG. 


CWB 


•'./%,2{SP) 


;:IS CHARACTER A CARRIAGE RETURN? 


8NE 


IS 


.-.BRANCH IF NO 


CLRB 


SCHARCNT 


.-.•YES— CLEAR CHARACTER COUNT 


BR 


STYPEX 


;;EXIT 


CWPB 


fLF,2(SP) 


;;IS CHARACTER A LINE FEED? 


BEQ 


STYPEX 


.-.BRANCH IF YES 


INCB 


(PC)* 


;: COUNT THZ CHARACTER 


:.UORD 


0 


: .-CHARACTER COUNT STORAGE 


RTS 


PC 





.-MJDOOI 
.-MJOOOI 



.'•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DIGIT 

.-•OCTAL (ASCII) NUMBER AND TYPE IT. 

;*CALL: 

;* nOV NUn.-(SP) .-number to BE TYPED 

JSR PC.TVPOCT ;CALL FOR TYPEOUT 



000005 
000006 



177770 
000060 
Q00Q22 
015764 
000014 



000070 TYPOCT: 

IS: 
2S: 

3S: 

7S: 
6S: 

8S: 

SOCNT: 
.SBTTL 



novB 
nov 
nov 
nov 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

MOV 

ROL 

BIC 

BIS 

MOVE 

TYPE 

DECS 

66E 

NOV 

nov 
nov 

RTS 
.BYTE 
.BYTE 
.WORD 



#5. SOCNT 

R4. -(SP) 

R5. -(SP) 

6(SP).R5 

R4 

R5 

3S 

R5 

R5 

R5 

R5.R4 
R4 

#177770.R4 
#'0.R4 

^ii 

ioCNT 
2S 

(SP)*. R5 
(SP)*.R4 
(SP)*. (SP) 
PC 
0 
0 
0 



APT CONNUNI CATIONS 



:SET ITERATION COUNT 
.-SAVE R4 
;SAVE R5 

.-PICKUP THE INPUT NUMBER 
.-CLEAR THE OUTPUT WORD 
.ROTATE MSB INTO "C" 
.-GO DO MSB 
.-FORM THIS DIGIT 



.-GET LSB OF THIS DIGIT 
.-GET RID OF JUNK 
.-MAKE THIS DIGIT ASCII 
.-SAVE FOR TYPING 
;60 TYPE THIS DIGIT 
.-COUNT BY 1 
:6R IF MORE TO DO 
.-RESTORE RS 
-RESTORE R4 

•SET THE STACK FOR RETURNING 
-RETURN 

•STORAGE FOR ASCII DIGIT 
.-TERMIMUOR FOR TYPE ROUT'Nc 
; OCTAL DIGIT COUNTER 
ROUTINE 



000001 
000001 



000236 
000226 



000001 000220 



IaTYI: MOVB 
SATY3: NOVB 
BR 

SATY4: NOVB 
SATYC: 



#1.$FFLG 
fl.SNFLG 
SAfYC 
#1.$FFLG 



:;rO REPORT FATAL ERROR 
;:T0 TYPE A NESSAGE 

:;T0 ONLY REPORT FATAL ERROR 
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SEQ 0084 



4580 
4581 
4582 
4583 
4584 
A585 
4586 
4587 
4588 
A 589 
^,590 
4591 

<,*>95 
4'>9A 
A •■^95 

/,^97 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
46|S 

4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
463S 



016014 
016016 
016020 
016024 
016026 
016034 
016056 
016044 
016046 
016052 
016060 
016064 
016066 
016072 
016074 
016076 

016104 
016110 
016116 
016120 
016126 
016134 
016140 
016144 
016146 
016146 
016152 
016154 
016160 
016162 
016166 
016170 
016176 
016204 
016210 
016214 
016220 
016224 
016226 
016230 
016232 
016233 
016234 



010046 

001031 
132767 
001425 
017600 
062766 
005767 
001375 
010067 
105720 
001376 
166700 
006200 
010067 
012767 
000413 
017667 
062766 
016746 
004767 
000000 

105767 
001416 
005767 
001413 
005767 
001375 
017667 
062766 
005267 
105067 
105067 
105067 
012601 
012600 
000207 
000 
000 
000 
016236 
000200 
000001 
000100 
000040 



000206 

000001 

000100 

000004 
000002 
162502 

162510 

162500 

162474 
000004 

000004 
000002 
161636 
177170 

0O0062 

162426 

162400 

000004 
000002 
162356 
000020 
000013 
000006 



162552 
162543 

000004 



162450 

000016 
000004 



162372 
000004 



1$: 



2$: 



3$: 



4$: 
5$: 
10$: 



11$: 



12$: 



$nfL6: 
$LFL6: 
$FFLG: 



HOV RO.-(SP) 

nOV R1,-(SP) 

TSTB $MFL6 

BEO 5$ 

ewe #APTENV«$ENV 

BNE 3$ 

81 TB #APTSPOOL,$ENVn 

BEO 3$ 

MOV a4(SP),R0 

ADD #2,4 (SP) 

TST $«S6TyPE 

BNE 1$ 

MOV RO.$nSGAD 

TSTB (RO)* 

BNE 2$ 

SUB $nS6AD,R0 

ASR RO 

MOV RO,$MSGLGT 

MOV /r4.$«SGTYPE 

BR 5$ 

MOV a4(SP),4$ 

ADD #2.4 (SP) 

MOV 177776, -(SP) 

JSR PC,$TYPE 

.WORD 0 

TSTB $FFLG 

BEO 12$ 

TST $ENV 

BEO 12$ 

TST $«SGTYPE 

BNE 11$ 

MOV a4(SP).$FATAL 

ADD #2,4 (SP) 

INC $nSGTYPE 

CLRB $FFLG 

CLRB $LFLG 

CLRB $MFLG 

MOV (SP)*. R1 

MOV (SP)*. RO 

RTS PC 

.BYTE 0 

.BYTE 0 

.BYTE 0 

:s20C 



APTSnEs200 
APTENV»001 
APTSPOOLslOO 
APTCSUP=040 
.S8TTL TRAP DECODER 



::PUSN RO ON STACK 

::PUSH Rl ON STACK 

: .-SHOULD TYPE A MESSAGE? 

:;IF NOT: BR 

; .-OPERATING UNDER APT? 

"If MOT* BR 

••SHOULD 'spool MESSAGES? 

;;IF NOT: BR 

::GET MESSAGE ADDR. 

:;BUMP RETURN ADDR. 
;;SEE IF 60NE U/ LAST XMISSION? 
:;IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
.•.FIND END OF MESSAGE 

;;SUB START OF MESSAGE 
;:GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
.•;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
:;BUMP RETURN ADDRESS 
;;PUSH 1^7776 ON STACK 
.•:CALL TYPE MACRO 



; .-SHOULD REPORT FATAL ERROR? 

;;IF NOT: BR 

; .-RUNNING UNDER APT? 

' -IF NOT* BR 

; -FINISHED LAST MESSAGE? 

:.*IF NOT: WAIT 

I .-GET ERROR # 

;:BUMP RETURN ADDR. 
;.*TELL A^t TO TAKE ERROR 
;; CLEAR FATAL FLAG 

CLEAR LOG FLAG 
;; CLEAR MESSAGE FLAG 
^•POP STACK INTO Rl 
r;POP STACK INTO RO 
; .-RETURN 
;.-MESSG. FLAG 
;.-LOG FLAG 
;: FATAL FLAG 



.••THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION^^ 
••AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:^0F THE DESIRED ROUTINE. IHEN USING THE ADDRESS OBTAINED IT WILL 
.••GO TO THAT ROUTINE. 
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TRAP DECODER 



H 7 



SEQ 0085 



016256 
016240 
016244 
016246 
016250 
016252 
016256 



010046 

m 

111000 
006300 
016000 
000200 



000002 



016272 



STRAP: HOV RO.-(SP) 

MOV 2(SP),R0 

TST -(RO) 

N0V8 (RO).RO 

ASL RO ^ ^ 

MOV STRPAD(RO),RO 

RTS RO 



' * SAVE RO 

;-;6ET TRAP ADDRESS 

: .BACKUP BY 2 

;;6ET RIGHT BYTE OF TRAP 

;;POSITION FOR INDEXING 

;; INDEX TO TABLE 

;:G0 TO ROUTINE 



016260 
016262 
016270 



016272 
016274 



011646 
016666 
000002 



016260 
015334 



000004 000002 



;;THIS IS USE TO HANDLE THE '^ETPRI 
$TRAP2 



MACRO 



MOV 
MOV 
RTI 



(SP), -(SP) 
4(SP),2(SP) 



;:M0VE THE PC DOWN 
:;M0VE THE PSU DOWN 
.-.•RESTORE THE PSU 



.SBTTL TRAP TABLE 

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE •7RAP" INSTRUCTION. 



ROUTINE 

ItRPAD: .WORD 
STYPE 



STRAP2 

;;CALLsTYPE 



TRAP*1 (104401) TTY TYPEOUT ROUTINE 



016276 005015 053103 
016304 041111 000 
016310 



040513 NAME: 



.ASCIZ <15><12>/CyKAIB/ 
.EVEN 



016310 
016710 




BUF1: 
BUF2: 



.BLKU 200 
.BLKU 200 
.END 



.MAIN 

CVKAIB.PII 
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ABASE « 
AC0W1 = 
ACDW2 = 
ACPUOP= 
ADOyO = 
A00W1 ^ 
AOOW10= 
A00W11= 
AD0yl2> 
A00W13^ 
AOOWUs 
A0DW1S- 
A00W2 - 
ADDW3 = 
A0DW4 = 
ADOWS = 
A0DW6 = 
ADOW^ = 
A0DU8 = 
A0DW9 = 
ADEVC r = 
AOEVM = 
AENV = 
AENV« - 
Af ATAl= 
AnA0R1= 

AnA0R5= 
AnA0R4= 
A«A«S1- 
AHA«S2= 
A«A«S3= 
AHA«S4-~ 
V1SGAD= 
ArtSGt G= 

AHTYPI- 

A«TYP4- 
APASS - 
APR10« 

APTf NV- 
APTSI/^ 
APTSPO^ 
ASyRfb 

ATEsrw- 

AUNIT = 
AUSWR = 
AVECT1- 
AV£CT?= 
BA0R6 



177560 
000000 




000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
000000 
000000 

oooooo 

000000 
000060 

oooooo 

000700 



eon 003622 



504# 

616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
616 
o16 
616 
497# 
495# 
494# 
496# 
616 
616 
616 
616 
505# 
616 
690# 
2084* 
3184* 
1594* 



616 
631 



622 

627 
628 
619 
644 
648 
651 
654 
638 
646 
649 
652 
624 
625 
618 
639 
647 
650 
653 
621 

4472 
4420 

744 
4467 

629 



CROSS REFERENCE TABLE — USER SYMBOLS 
657 



462ar 
4465 
4625# 
4586 



4584 4626# 
4627# 



655 



630 

616 

656 

807* 903* 
2208* 2313* 
3249* 3314* 
1599# 1601 



994* 1091* 

2385* 2457* 

3384* 3455* 

1607* 1608 



1201* 1307* 1413 
2545* 2618* 2700 
3519* 3593* 3663 



.HAIN. MACtn 30(1046) 
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BO 30 
BEGIN 
BITO ■■ 
BITOO = 
BITOT : 
BITO? - 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
Bir07 = 
BIT08 ' 
BIT09 = 
BIT1 = 
BITIO = 
BIT11 : 
B1T12 = 
BIT13 = 
BITU = 
BIT15 = 
BIT2 = 
BITS = 
BIT4 = 
BITS = 
BIT6 = 
BIT? = 
BITS - 
BIT9 = 
BPTVtC: 

Bun 



000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002UO0 
004000 
010000 
020000 
040000 
'00000 
000004 
000010 
000020 
OOOO^tO 
000100 
000200 
000400 
001000 
000014 
016310 



BUF2 016710 



CCOOES 
CKCC 



CKR4 
CLOST 

CLRINT 
C«C 

C«PC = 
CONTCL 
CONTG 
CONTIN 
CR = 
CRLF 
OOISP = 
OISPLA 



000672 
014370 



014514 
014276 

014532 
010042 
176044 
)U312 
)I1736 
)U452 
OQOOIS 
000200 
177570 
000542 



22-JAN-82 08: 
8:43 


2910* 


2915* 


772* 


#4/7 

4143 


479# 


/ A4 7 

4017 


469# 


4 7ti 

47V 


468# 


/ 7<k 

478 


467# 


/ 77 

h77 


466iV 


t 7rf 

476 


465# 


i 7C 

475 


464# 


/ 7/ 

474 


463# 


/ 77 

473 


462* 


/ 71 

472 


461* 


J 74 

471 


460* 


470 


478* 




459* 




J f O At 

458* 




457* 


4132 


456* 


4412 


455* 


4299 


454* 




1*7 7 m 




476* 








474* 




473* 








471* 




h7\jm 








762 


077 


c5ct 


£7o\) 


3710 




4028 


/ A7fl 


7tt7 

787 


842 




1284 


1591 


1 ^zc 
163) 


^A^ 1 

2061 


2066 


cofb 


QA 

2680 


687* 


1653* 


3580* 


3583* 


798 




2376 


2448 


5510 


3654 






70A 

789 


y77 


2836 


4202* 


4278 


4281* 


2951 


2965* 


506* 


2302 


4206* 


/ ?AQ 

4208 






4250 


4252 


394* 


4528 


395* 


4482 


401* 


599 


599* 


741* 



U PAGE 89 

CROSS REFERENCE TABLE - 
2917 2923* 2924 
4251 



J 7 
USER SrnBOLS 



SEO 0387 



4313 
4321 



4430 



1069 
2832 
3753 
4213 

881 
1286 
1700 
2117 
2710 
1656* 
3584 

985 
2536 
3725 



1343 
2905 
3786 
4669* 
884 
1290 
1701 
2175 
2748 
1657 
3809* 
1082 
2609 
3887 



1073 1180 



2374 2446 



4255* 

4538 

4538 

4332* 4407* 



1352 


1454 


1589 


2947 


2949 


3032 


3790 


3841 


3873 


937 


975 


1030 


1344 


1388 


1390 


1756 


1811 


1855 


2241 


2364 


2366 


2754 


2755* 


2834 


2194* 


2197* 


2198 


3812* 


3813 


4046* 


1192 


1298 


1404 


2691 


2764 


2849 


3957 


4236* 




1392 


1498 


1637 


2534 


2607 


2689 



1633 


1754 


1853 


3098 


3163 


3282 


3877 


3915 


3943 


1071 


1125 


1176 


1395 


1447 


1494 


1908 


1958 


1960 


2403 


2434 


2439 


2839 


2907 


3364 


2968* 


2971* 


2972 


4049* 


4050 


4236* 


1509 


1766 


1866 


3043 


3109 


3175 


1758 


1857 


1962 


2762 


2847 


2965 



2173 


2432 


2524 


3641 


3645 


3682 


3947 


3985 


4024 


1178 


1183 


1234 


1496 


1501 


1554 


1965 


2018 


205O 


2440* 


2594 


2598 


3429 


3553 


4670* 


3301* 


3304* 


3305 


4237* 


4238 


2304 


1973 


2075 


3240 


3375 


3446 


2063 


2177 


2436 
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DISPRE 

OSTAD 

OSTLN 



OSWR = 

EmvEC = 

EPHOnSG 

ENOn 

ENOTIO 

EN0T1| 

ENOn! 

ENOTK 

ENDT\5 

EN0T16 

EN0T17 

ENDT2 

EN0T3 

ENDTA 

EN0T5 

ENOT^ 

ERRVEC= 

EXPPSW 

FILL 



000174 
000652 
000650 



177570 
000030 
0U130 
001534 
003554 
004212 
004444 
004674 
005124 
005364 
005722 
001734 
002144 
002374 
002634 
003334 
000004 
000674 
000654 



GENCON 014334 
GENR 014204 



GENSRC 
GNS 

HT = 

ILLTRP 

INTR 

lOTTRP 

I0TVfC= 

LF 

LOC 

LOCC = 

nc 

HOVC = 
HOVRC = 

mc 

H = 



014324 

****** u 

000011 
014164 
014506 
014174 
000020 
000012 
011076 
076040 
003776 
076030 
076031 
005510 
000007 



22-JAN 
08:43 

51 5# 
679# 
678ir 

1819 

4184 
400# 
489# 

4114 
859 

1572 

1727 

1831 

1937 

2038 

2146 

2270 
950 

1048 

1154 

1263 

1473 
482# 
6SS» 
680# 

1691 

2570 

3331 

3828 

4216# 
792 

2069 

3104 

4038 

1181 
514 
392# 
523 

1639 

4174# 
487# 
393# 

3286 
5(/6# 

1638 
506# 
506M 

2178 
502# 
830# 
896 
930# 
096# 

1033 

\]^ 

1209 
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CROSS REFERENCE TABLE - 



741 
1350 

849 
1821 
4195* 

598 

713* 
4147# 

863# 
1576* 
1731# 
1835# 
1941# 
2042* 
2150# 
2274# 

9i"4# 
1052# 
1158# 
1267# 
1477# 
4304 
1657 

832 
1720 
2652 
3390 
3841 
4218 

889 
2187 
3169 
4182# 
1288 
4660 
4480 
4167# 
2179 



2331 
1010 
1915 
4205 

714* 



2474 
1038 
1998 



4305* 
2198 
850 
1781 
2723 
3401 
3902 

980 
2298 
3234 

1393 

4538 

2952 



4307* 
2972 
927 
1899 
2779 
3435 
3915 

1076 
2371 
3295 



2643 
1142 
2026 



4310* 

3305 

1000 

1918 

2885 

3461 

3972 

1186 
2A43 
3370 



1499 1963 



3287 3565 



711* 


712* 






4532 


4538 






3299# 






3238 


3041 


3107 


3173 


1651# 






1080 


796 


892 


983 


1764 


1864 


1971 


2073 


2192# 






808 


775# 


800 


801# 


834 


835# 


838 


839f 


897# 


904 


905# 


911 


933 


934# 


940 


941 # 


1002 


1003# 


1006 


1007# 


1034f 


1038 
1105# 


1041 


1042# 


1104 


1108 


1109# 


1136 


1137# 


1144 


1147 


121 Of 


12U 


1215f 


1218 



K 7 
USER SYMBOLS 



2718 2791 
1251 1323 
2028 2124 



SEQ 0086 



2878 4185 
1353 1464 
2248 2327 



809# 
845 
91 2# 
946 
1013 
1049 
1112 
1148# 
121W 



815 
846# 
916 
947# 
1014f 
1050# 
1113f 
1155 
1222 



81 6# 
849 
91 7# 
951 
1018 
1056# 
1117 
1156# 
1223# 



821 
852 
920 
952# 
1019# 
1084 
1118# 
1160f 
1227 



4196* 4202 

1534 1562 1718 

2501 2644 2812 



3584 


3813 


4050 


4223* 


4227* 


1115 


1145 


1225 


1254 


1313 


1988 


2108 


2127 


2232 


2251 


3006 


3058 


3069 


3124 


3135 


3472 


3560 


3599 


3610 


3669 


3985 


4065 


4078 


4186 


4197* 


1293 


1398 


1504 


1597 


1647 


2530 


2603 


2685 


2758 


2843 


3440 


3504 


3573 


3648 


3717 


2064 


2437 


2752 


2837 


421 3# 


3792 


4030 


4274# 






3299 










1190 


1296 


1402 


1507 


1651 


2192 












i;9i 

2879 



4238 






1437 


1466 


1524 


2336 


2408 


2463 


3190 


3201 


3320 


3682 


3740 


3753 


1761 


1860 


1968 


2913 


2960 


3038 


3800 


3880 


3950 



825 


826# 


829 


860 


861 # 


867# 


924 


925# 


929 


987 


988# 


995 


1023# 


1026 


1027* 


1092 


109J# 


1099 


1122* 


1128 


1129* 


1195* 


1202 


1203* 


1231 


1252# 


1237 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0089 



NAME 

NEXTST 

Nxn 



OLDPC 

ONEBYT 

ONES 

PATGEN 

PCI 



016276 
014454 



000702 
000714 
000712 
001300 
000670 



1238* 


1242 


1245 


1309* 


1315 


1316* 


1347 


1348* 


1356 


Viii 


1427* 


4 / 9A 

1430 


1458 


1459* 


1468 


1530 


1531* 


1537 


1565 


1566* 


« P 99 

1573 


1676* 


1680 


1681* 


1709 


1712 


1713* 


1784* 


1787 


4 9a A M 

1788* 


1821 


1824 


1825* 


1889* 


1892 


1893* 


1921* 


1927 


4 A9 A 

1930 


1994 


4 AAf M 

1995* 


AAA4 

2001 


2031 


^A9 

2032* 


2039 


2101 


2102* 


^4 AP 

2105 


2136 


4 Y A 

2139 


'%4 y Aa 

2140* 


22220 


2225 


2226* 


2254* 


2260 


2263 


2325 


2326* 


<^9 A A 

2329 


2386 


2387* 


A 9n9 

2393 


2415* 


/ 4 A M 

2419* 


^ / C A 

2450 


2490* 


2497 


^ i AD tf 


2558* 


2563 


^Cdi a 

2564# 


2620* 


^Z 

2626 


2t27M 


2664* 


AZ A9 

2693 


A/ a 

2694* 


2725 


272bM 


2729 


2800 


AOA4 M 

2801* 


AO A/ 

2804 


2866 


2867* 


2872 


2918 


*%n4 Am 

2919* 


^AT4 a 


3003 


9 AA / M 

3004* 


9AAO 

3008 


3064 


9 A^ e M 

3065* 


9A9Z 

3076 


3130 


94 94 M 

3131* 


94 / ^ 

3142 


3196 


3197* 


9 AAA 

3208 


3261 


3262* 


T^z. 7 a 

3267* 


3342 


3343* 


TTC1 a 


3412 


3413* 


T/ 1 Oa 

34 18# 


3483 


3484* 


9/ oo a 


3587* 


3594 


TCAC a 

3595^ 


3657* 


3664 


Tz z c a 

3665* 


3728* 


3735 


T9TZ a 

3736* 


3816* 


3823 


90^/ a 

3824* 


V A AA m 

3890* 


3897 


TOAO a 

3898* 


VA^ Am 

3960* 


9AZ 7 

3967 


TAZ oa 

3968* 


y AC #M 

405i# 


/ AZ A 

4060 


4061* 


750 


4664* 




4248 


4254 


4256* 


FAT M 

503* 


785 


879 


94 ^ C 

3165 


3228 


9 A AM 

3229 


3554 


3555 


Tz / ^ 

3642 








691* 


4153* 


4:60* 


697* 






696* 


876 




749 


762* 




686* 


1638* 


2178* 



1246* 

1319 

1357* 

1431* 

1469* 

1538* 

1574* 

1684 

1722 

1794 

1832 

1896 

1931* 

2002* 

2040* 

2106* 

2147 

2229 

2264* 

2330* 

2394* 

2451* 

2505 

2567 

2633 

2701 

2730* 

2805* 

2873* 

2974 

3009* 

3077* 

3143* 

3209* 

3307 

3377 

3448 

3512 

3601 

3671 

3742 

3830 

3904 

3974 

4067 



2292 
3230 
3643 



1253 

1320* 

1366 

1434 

1474 

1542 

1580* 

1685* 

1723* 

1795* 

1833* 

1897* 

1938 

2006 

2046* 

2110 

2148* 

2230* 

2271 

2355 

2597 

2458 

2506* 

2568* 

2634* 

2702* 

2735* 

2810 

2876 

2975* 

3012 

3080 

3146 

3212 

3308* 

3378* 

3449* 

3513* 

3602* 

3672* 

3743* 

3831* 

3905* 

3975* 

4068* 



2294 
3283 
3711 



4167* 4174* 



1256 

1326 

1367* 

1435* 

1475* 

1543* 

1602 

1688 

1728 

1799 

1839* 

1901 

1939* 

2007* 

2077 

2111* 

2155* 

2234 

22720 

2334* 

2398* 

2459* 

2511* 

2572 

2639 

2708 

2766 

2811* 

2877* 

2982 

3013* 

3081* 

3147* 

3213* 

3315 

3385 

3456 

3520 

3605 

3675 

3746 

3834 

3908 

3978 

4071 



2362 2596 
3284 3365 
3712 3787 



125r* 




1 O^Cil 

1{63* 


1 57A* 


1 TAA 

1 300 


1 701 m 

1301* 

1 T7a 
1337 


1 TAB 

130O 


\5cf0 


1331 


1 TTOJ* 

1332* 


1 TTC 

1335 


1 TTiL* 

1336* 


1 XLr\m 
1 3*U* 


1373* 


1 I A^ 

1406 


1 y A7JI 
140f * 


1414 


1 / 1 C# 

1415* 


1*<1 


1Z5?if 
1«»££* 


1439 


1440* 


1//T 

1443 




1/CA 

1<»50 

1 C^A« 

1 55/^ 


1 / Cl * 
1*|51* 


1/,CC 
1«»55 


1481* 


1 C1 1 

1511 


1 CI 


1 CI Q 
1517 


1 C5il 
1 5<0 


1 C57* 
1 5£ A* 


1546 




1 C C 1 

155J 


1 CC1 il 

1551* 


1 CCfl* 

1 558* 


1 Cit5 

1 56c 


1603* 


1 CM 


1 iCCQ 

1657 


1660* 


1668 


1667* 


10' 3 




16t3 


167HW 


A^.07 

loyf 


1 AQB* 
1070* 


1 

1 f U*» 


1 7ftC* 


1 70Qil 


1 f Sym 


1 7iLfi 

1 '68 


1 7diOM 
1 f 67* 


177A 

1 f f 0 


1 777* 

\ f f IM 


1 7B< 


1 QAAil 

loUO* 


1 BAT 

1803 


1 BAZif 

180h* 


1 BA7 

loOf 


1 BAB* 
1008* 


1 B1 /. 


1 fli C* 

1 0 1 jm 


loOo 
ty\}c0 


1 B<kOil 

1o6t* 


1 B7A 


1fi77i> 


1 BBT 
1003 


1 flflZ* 
1 OOh* 


1 flflfl 
1 OOO 


1 0AC 

iyo> 


1706* 


101 1 

IVl 1 


1 01 5* 
ItIc* 


iai7 

171 / 


l7cU 




1Q7C 

\yfj 


1 07t^M 


10B7 
1703 


1 QBZ* 
l70<t* 


loon 

1 77U 


lOOlif 
177 1* 


^A1 A 

2010 


0A1 1 M 

cOl \m 


0A1 Z 

cOlH 


9A1 C* 

c015* 


5A51 

dvdi 


5A55ir 
dVdd' 


5ft5B 
cUcO 


durom 


c085 


cOOb* 


dvyd 




5no7 


cv70* 


oil/ 
cl 14 


01 1 Cil 

cll5w 


51 5A 


01 51 * 

clcl* 


51 5A 

clcO 


51 50 
£lC7 


51 7ftir 
C 130* 


dew 


ccOlw 


ccOt 


551 Air 

cclO* 


551 A 
eclO 


5517* 
dC 1 r * 


5331 

cc<: 1 


ddjj0 


O^Tfi 
££36 


55TOif 


55^/. 


CC*»5* 


C.c5U 


5PS7 

ddJJ 


00BA4I 


9TAil 

(306 


djMf0 


c31* 


5T1 C* 
c315* 


5751 
did I 


5755* 
didd^ 


2338 


"iXXQm 


c34c 


c3h3* 


£3*0* 


577fl 
c3f 0 


5770* 
difym 


chUI 


d'tvdif 


5Z AC 

ch05 


chOO* 


5Ain 


5^1 1* 
£*♦ 1 1* 


CH 1 H 




£*»60* 


CH07 


C*»f U* 


5^ilX 
r hOj 


5AB£ir 


cH07 


dJJO 


OKXOM 

djjyH 


3C^A 
c5hO 


c5Hf * 


J^^X 

CJJJ 


dJJ'*'f 


5^^7 


djfjit 


9C7A 
djlQ 


djt tm 


5Cfl5i> 
c jOc* 


cO 1 1 


5A1 5if 
tO 1 r * 


3A10 
cO 1 7 


dO'»\Jlf 


do**! 


COHO* 


5AC^ 


dOjjif 


5A^R 


3A^Qir 

c03t* 


07AQit 


571 5 
d(\d 


071 Tit 
13* 


57K 
Cf 10 


5717* 


575ft 
df dV 


3731 * 
df dim 


dftfif 


977Z. 


df f 5* 


5781 
dfO 1 


5785i> 


cr 05 


c f OO* 


cOlO 


9fi1 7if 

e61 


5A31if 

dodiff 


5BC1 
C07 1 


cOjc* 


c057 


cOOU* 


dood 


cB63* 


9BB7 


'JBBB* 
cOOo* 


c07 1 


C07C* 


C070* 




OOfiO 

ct8t 


C77U* 


£773 


500 A ji 

CyTH* 


5000 
£777 


7ftftftjr 


jvdW 


TAZC 

3Uh5 


30*10* 




TAC/ « 

jUjh* 


7nAn 


7ftAiir 

3UO 1 * 


5vn0 


31 1 1 


T1 1 9ir 
31 Ic* 


71 10 
31 l7 


71 5ni> 

3 IcO* 


J 1 cO 


71 37# 
5 1 Cf * 


jijd0 


31 f f 


71 7fiir 

31 f 8* 


3 105 


3 100* 


7109 

i l7£ 


71Q7jr 
5 1 73* 


jdlO0 


3cHi 


3c*»3* 


3c50 


75^1 J> 
id J 1* 


73^7 

jdJf 


3c30* 


3310* 


33cc 


33c3* 


33c0 


7757if 
jjdfH 


77711 


7770* 
3337* 


33oo# 


33y£ 


3373* 


3370 


7707ir 


7^nfl 
5*U0 


3HU7* 


X/.K7M 


3h63 


3*»0H* 


T/.A7 

3<»0f^ 


5*»00* 


7 A 70 


3*»OU* 


jjdMf 


JJdf 


TC^B* 

j3cO* 




7C79ir 


7^77* 

jjif * 


3300 


30U0^ 


TA1 7 


00 10* 


30c 1 


7A59ir 
jOcc* 


7^704 
jOjv* 


Xf,Kf, 
3070 


3676* 


3689 


3690* 


3693 


3694* 


3699* 


3727 


3747* 


3760 


3761* 


3764 


3765* 


3770* 


3815 


3835* 


3848 


3849* 


3852 


3853* 


3860* 


3889 


3909* 


3922 


3923* 


3926 


3927* 


3932* 


39S9 


3979* 


3992 


3993* 


3996 


3997* 


4002* 


4052 


4072* 


4085 


4086* 


4089 


4090* 







2678 
3366 
3788 



3033 
3430 
3874 



3034 
3431 
3875 



3099 
3498 
3944 



3100 
3499 
3945 



3164 
3500 
4025 



2951* 3286* 3564* 3791* 4029* 4275 
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PIRQ = 
PI ROVE = 
PREP 



PRO = 

PR1 
PR2 

PR3 
PR4 
PR5 
PR6 
PR7 
PS 

PSW : 

PVIRVEC- 

REP^MC 

REPLOC 

REPMC 

REPMRC 

RfcPSCN 

REPSKP 

REPSPN 

REP11 

REP30 

RESVEC= 

RETN 

SAVR6 



SCANC - 
SCN 
SEND 
SKP 

SKPC = 

SKPINT 

SPANC = 

SPCCON 

SPN 

SRCAO 



M7772 
000240 
014250 



000000 
000040 
000100 
000140 
000200 
000240 
000300 
000540 
M777b 
\7777(> 
000024 
010026 
011064 
003766 
005474 
012664 
012022 
013570 
003616 
007662 
000010 
014504 
000676 



076042 
012704 
014522 
012034 
076041 
014412 
076043 
013472 
013606 
000646 



SRCLN 000644 



STACK : 
START 
SFKLNT: 
SUR 

SWREG 
SWO 

SWOO = 



001100 
000716 
177774 
O0OS40 

000176 
000001 
000001 



399# 
493# 
783 
2057 
3096 
4022 
41 6# 
41 7# 
4184f 
419iir 
420# 
421# 
422# 
423/r 
396# 
397* 
488* 
2960* 
3295* 
1647* 
2187* 
3800* 
3573* 
4038* 
1597* 
2913* 
483* 
4264 
689* 
2082 
3050 
3801* 
506* 
3791 
4276 
3564 
506* 
1627 
506* 
4016 
4029 
677* 
2395 
3433 
676* 
1719 
2560 
3609 
387* 
534 
398* 
598* 
4412 
516* 
451* 
441* 



877 
2171 
3161 
4193* 



397 

717* 
2970 
3303 
1655 
2196 
3811 
3582 
4048 
1609 
2925 

727 
4269* 

805 
2188* 
3116 
3820 
3652 
3806* 
4279* 
3577* 
3373 
2167 
3885 
4018 
4043* 

876* 
2473 
3470 

909 
1790 
2630 
3679 

700* 

707 
4427 
740 

451 



971 
2290 
3226 



740* 
4430 



1067 
2360 
3280 



1774 
2430 
3362 



K 7 
USER SYMBOLS 



1282 1386 
2522 2592 
3427 3496 



1492 
674 
551 



728* 


735* 




901 


992 


1089 


2206 


2311 


2383 


3182 


3247 


3296* 


3894 


3964 


4039* 


3722 


3806 





1199 
2455 
3312 
4057 



1305 
2543 
3382 
4188* 



1411 
2616 
3453 
4189* 



3444 


3508 


2941 


3276 


3955 


4043 


4021* 




1037 


1132 


2559 


2629 


3529 


3557 


1009 


1133 


1818 


1916 


2806 


2869 


3750 


3838 



3577 
3547 



1362 
2790 
3608 
1143 
1927 
2996 
3912 



3780 4246* 



1561 
2868 
3678 
1242 
1997 
3068 
3982 



1708 
2995 
3749 
1252 
2025 
3134 
4075 



1820 
3067 
3837 
1322 
2125 
3200 
4182 



746* 4013 4132 4247 4299 



1588 
2746 
3639 



718* 4340* 4341* 4350* 4356* 4369* 4370* 



SEO 0090 



1631 
2830 
3708 



1752 
904 
784 



1516 1665 1773 
2698 2771 2856 
3517 3574* 3591 



1926 


2027 


3133 


3199 


3911 


3981 


1363 


1455 


2136 


2249 


3330 


3400 


4193* 




4313 


4315 



135 
259 
4074 
1465 



4321 



1851 
2945 
3871 



1956 
3030 
3941 



1873 1980 
2961* 2979 
3661 3732 



418 
153! 
2319 
3471 



4194* 
1709 



4348 4362* 
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N 7 
USER SYMBOLS 



:woi 

SU02 
SW03 
SU04 
SW05 
SU06 

syQ7 
sy08 

SU09 

syi 
suio 
syii 
syi 2 
syiS 

SU14 

syi5 
syr 
sw' 
sy4 
sys 

sy8 

SU9 
TABLE 



TBIT * 
TBITVE= 
TBUF 
TCSR 

TDONE 
TEMP 

TEMPI 

TE«P2 

TE13 

TIHTRP 

TKVEC = 

TPSy 

TPVEC s 

TRAPVE» 

TRTVEC« 

TSTl 

TST10 

TST11 

TST12 

TST13 

TSTU 

TST15 

TST1A 

T$T17 

TST2 



= 000010 
= 000020 
= 000040 
= 000100 
)200 




= 00000« 

= oo2c: 

' 004QOO 
« 010000 
s 020000 
» 040000 
= 100000 
= 000004 
= 000010 
= 000020 
= 000040 
= 000100 
= 000200 
= 000400 
= 001 000 
000656 



000020 
000014 
000662 
00J660 

014462 
000704 

000706 
>710 
i7Q2 
014154 
000060 
000666 





450 
449 
448 
447 

446 
445 
444 
443 
442 



2268 
4160# 

761 • 
4031* 

715* 



1750# 



931 
2340 
3394 
3881 
4227 

725* 
1642* 
1646* 
4037* 
2954 

735 
3549 
1610 



1640* 
4094 

716* 



1004 
2412 
3465 
i906 



2182* 
1654 
4047 
3289 

2911* 



1119 
2467 
3603 
3947* 





3290* 

2195 

4263 

3794 

2472* 

42S6* 



3568* 

2959* 

4281* 

4032 

2477* 

4262* 



1735 2180* 2276 2953* 



SEO 0091 



1441 


1528 


1695 


1785 


2727 


2783 


2889 


3010 


3673 


3714* 


3718 


3744 


4028* 


4040 


4069 


4187 


3795* 


4033* 


4279* 




2969 


3294* 


3302 


3572* 


4262# 








2494 


2502 


2789* 


2794* 


4265* 








3016 


3288* 


3347 


3566* 



1903 1992 
3062 3128 
3790* 3802 



3572* 3581 3799« 



2794* 2807 2813 



3566* 3626 3793* 



B 8 

'IAIN. MACY11 30 ("0^6) 08 .--iA PAGE 94 

VKAie.Pn 08:43 CROSS REFERENCE TABLE - USER SWCCLS 



SEQ 0. 



T3T20 

TST22 

TST23 

TST?A 

TST?S 

TST26 

TST37 

TST3 

rST50 

TST51 

TST52 

TST?5 

TST35 

rST36 

TST3? 

TSTA 

TSUO 

TSUI 

TSK2 

rST43 

rSTAS 

rST46 

TSTA? 

TST5 

TST'jO 

TST6 

\SU 

TVFCT 

TYPl 
TVPOf r 
T7EH0 
Tlfc I? 
nOFl2 

nuoN 

nai? 
n3e\^ 

run 5 

l16f M 

n7r^^ 

T30(ON 
T4E^3 

^PSW 



005734 

006100 
006252 
006476 
006642 
007030 
007204 
007424 
001734 
or 7620 
007722 
010206 
010350 
01051? 
010656 
010760 
011242 
002144 
011404 
011570 
011672 
012200 
012364 
012552 
01 3060 
013246 
002374 
013434 
002634 
003076 
000664 

104401 
015670 
014144 

00151*? 
003534 
003632 
004146 
004424 
004630 
004654 
005104 
005 320 
005344 
005656 
002124 
007676 
00;'326 
002352 
002566 
002612 
005270 
014344 



2170 
2358# 
2429# 
2521# 
2590# 
2673# 
2745# 
2829# 
970* 
2903* 
2940* 
2944 
3095* 
3160* 
3225# 
3275# 
3279 
1066# 
34 

3495# 

3546# 

3550 

3707# 

3779# 

3783 

3940# 

1173# 

401 2# 

1281# 

1385# 

684# 
3857* 

750 
4417 

519 

850# 
1563# 
1596 
1/10# 
1822# 
1918# 
•i928* 
2029# 
2127# 
?137# 
2251# 
1039# 
2912 
1134# 
1U5# 
1243* 
1254* 
1456* 

790 
2183 
3232 



2289* 



3029* 

3361* 

3638* 
3870* 



759* 
4030* 
4114 
4547* 
4153* 

857 
1570 
1606* 
1717 
1829 
1925 
1935 
2036 
2134 
2144 
2258 
1046 
2922* 
1141 
1152 
1250 
1261 
1463 

887 
2296 
3291 



1639* 
4094* 
4371 



1735* 2179* 
4414 4418 



2276* 2952* 
4485 4562 



3016* 3287* 5347* 
4660* 



3565* 3626* 3792* 



978 
2369 
3368 



1074 
2441 
3438 



1184 
2528 
3502 



1291 1396 
2601 2685 
3569 3646 



1502 1643 1759 
2756 2841 2956 
3715 3796 3878 



1858 1966 2067 
3036 3102 3167 
3948 4034 4223* 
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UPTHD 

SASTAT= 

SATYC 

SATY1 

SATY3 

SATY4 

SAUIOB 

SBASE 

SaDADR 

SBDDAT 

SCHARC 

SCKSWR= 

SCLR.T 

SCMTAG 

$CH3 ^ 

SCPUOP 

SCRLF 

»EVCT 

SDOAGN 

$ENDAD 

SENDCT 

lENULL 

SENV 

$t"NVM 

S£np 

lEOPC r 

lEPFLG 

lERMAX 

lEHROft 

tERRPC 

SfRRTB 

tLMTTL 

tfSCAP 

StTAflL 

ttTEND 

SMfAL 

tFFLC, 

URLC 

%, ILLS 

SGDADR 

SGDDAT 

$GEr42 

SGTSWR= 

WIBTS 

$(CNT 

«ILLUP 

SINTAG 

SITEMB 

ilf 

SLfLG 

SLOOP 

SLPADR 

tLPfRR 

$n*ORl 

MLADR? 

W.ADR3 



000400 
****** (J 

016014 
015770 
015776 
016006 
000534 
000642 
000522 
0OQ526 
015664 
****** u 

014040 
000500 
000000 
000614 
000563 
000576 
014060 
014050 
014012 
014124 
000606 
000607 
013762 
014004 
000503 
000515 
C15140 
000516 
000644 
000512 
000560 
0006C6 
000644 
000570 
016234 
000556 
000555 
000520 
000524 
014022 
••** * y 

000400 
000504 
015122 
000535 
000514 
000564 
016233 
014116 
000506 
000510 
000620 
000624 
000630 



556 

4606 

4577 

4575# 

4470 

4578# 
595# 
657# 
590# 
592* 

4487 

4663 

4118 
578# 
608# 
631# 
61 0« 
622# 

4110 
543 
719 

4145« 
627* 
628# 

4014 
71 9» 
581# 
5B7» 
713 
5884^ 
674# 
585# 
608# 
626# 
568 
61 9# 

4575* 
606# 
605# 
589# 
591# 

4115* 

4662 
563* 
582# 

4340 
596# 
586# 
61U 

4616* 

4137 
583* 
584# 
644# 
648# 
651# 



562# 
4621 
4579* 

4576* 



752 



* 4497* 4504 4530* 4535* 

4121* 
705 



4414 4418 4486 4538 



4116 
748 
4112* 

4017 
744 
4020 
4109* 
4290 
721* 
4404* 
4409* 

4408* 
720* 

658* 
700* 
4578* 
4490 
4538 



4411* 
4538 
4622* 
4141* 
737* 
738* 



4123 
4125* 



4251 

4467 

4103* 

4113 

4319 

4331* 



4129* 
4437 



4420 4465 4584 
4472 4586 



4424* 

4606 

4538 



4356 4378* 



4424 



4374 

4323* 

4323 



4608 



4325* 4335 
4335 



4405* 



4410* 4411 4415 



4330* 4433 4435 



4612* 

4615* 4623* 



4328* 4333 
4329* 4335 



4335 
4432 
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D 8 
USER SYMBOLS 



SEQ 0"^ 



MA0R4 
MAIL 
SftAttSI 
S«A^S'» 
MAMS 3 

yvv«s4 

tnBAOR 

MfLG 

M^GAD 

MTYPi 

V« f ? P i 

INI ■! I 
INW r T - 



000634 

000566 
000616 
000622 
000<S26 

000632 
000402 
016232 
000602 
000604 
000566 
000617 
000623 
0006^?/ 
000633 
000554 
000001 



tOCNf 

tOVFR 

tPASS 

tPASTM 

tPOWER 

SPWRAO 

tPWRON 

SPWRMG 

$PWRUP 

SOUES 

SROCHRe 

SROOEC- 

SROLINs 

$R0OCT= 

SRTNAO 

SRTRN 

$R2A = 

SSAVRE* 

SSAVR6 

$SCOPE 

$SETUP= 

JSTUP = 

SSVLAO 

SSVPC = 

SSUR = 



015766 
014724 
000574 
000406 
015130 
015104 
014740 
015100 
015012 
000562 
****** u 

****** u 
****** u 
****** u 

014120 
014114 
****** u 
****** u 

01 51 26 
014542 

m 

0U670 
000400 
17U00 



SSWREG 000610 

SSWR«tC= 000500 

$T8IT 0U122 

STfSTN 000572 



654# 
564 
638# 
646# 
649# 
6524r 
564# 
4576* 
624# 
625* 
61 8# 
639# 
64 7# 
650# 
653# 
604# 
775# 
1375 
2046# 
2584 
3085# 
3490 
4002ir 
4547* 
4300 
621/r 
566/r 
4372 
4374/r 
717 
4372# 
4350 
609# 
4663 
4663 
4663 
4663 
4U3# 

724 
4663 
4663 



568 



4582 
4592* 
4597* 
701* 



1642 
777 
148U 
2048 
2664# 
3087 
3537# 
4004 
4563* 
4318 
743* 

4381/r 

4340# 

4356# 
4538 



726* 



61 7# 


4327 


4465 


4617* 


462U 




4595 






4422 


4425* 


4590 


91 ft? 






867# 


869 


9590 


1483 


1580# 


1582 


2155# 


2157 


2280# 


2666 


2735# 


2737 


3152# 


3154 


321 8ir 


3539 


363(Mf 


3632 


4571# 






4324 


4332# 


4107* 


4019 


4106* 



4369 



4349* 


4357 


4358* 


711 


4298# 




527# 


4105 


4299 


527# 






4308 


4320 


4326# 


S41# 


546 




49&r 


608 


609 


1751 


1851 


1956 


2904 


2941 


3030 


3780 


3871 


3941 


4299 


4311 


4313 


629# 


746 




499# 


4294 


4295 


736* 


4134* 


4144# 


620# 


702* 


4327* 



732* 4119 4138# 



4359* 4380# 



4376 




783 


876 


2057 


2167 


3096 


3161 


4013 


4099 


4314 


4319 


4315 


4316 


4376* 





4598* 


4610 


4614* 




3568 


3795 


4033 


4279 


961 


1056# 


1058 


1160# 


1615# 


1617 


1739/r 


1741 


2282 


2348# 


2350 


241 9/r 


2821# 


2823 


2896# 


2898 


3220 


3267ir 


3269 


335U 


3699# 


3701 


3770# 


3772 


4144 


4253 







971 
2290 
3226 
4106 
4320 



1067 
2359 
3276 
4117 
4321 



4492 

1162 

1839# 

2421 

2931 # 

3353 

3860# 



4538 

1270# 

1841 

251 1/r 

2933 

3418# 

3862 



1272 

1944# 

2513 

3020# 

3420 

3932« 



1373# 

1946 

2582# 

3022 

3488# 

3934 



1174 


1282 


1386 


2430 


2522 


2591 


3362 


3427 


3496 


4130 


4144 


4291 


4326 


4329 


4332 



1492 


1588 


1627 


2674 


2746 


2830 


3547 


3639 


3708 


4292 


4293 


4294 


4335 


4575 
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CROSS REFERENCE TABLE 



E 8 

USER SYMBOLS 



SEO 



IIKB 000546 
tTrS 000544 
STN . 000051 



SrPB 

$TPFLG 

ITPS 

STRAP 

STRAPS 

STRP s 

STRPAD 

$TSTH 

tTSTHM 

STYPBNs 

fTYPOS' 

$TYPC 

ITYPCC 

tlYPCX 

STVPOCs 

SUNIT 

tUNITM 

%usm 

SVECTI 
iV£CT2 



000552 
000557 
Q00550 
016236 
016260 

0?62?i 

» 

••*•*• u 
15334 
^15546 
015666 
****** u 




601 « 
600# 
501* 
852 
940 
1026 
1112 
1202 
1264 
1366 
1458 
1550 
1675 
1751* 
1832 
1920 
2010 
2101 
2200 
2271 
2378 
2469 
25/2 
2674* 
2781 
2882 
3003 
3111 
3212 
3338 
3456 
3586 
3693 
3830 
394 If 
4085 
603# 
607# 
602f 
715 
464&r 
4652« 
4642 
565f 
580# 
4661 
4661 
4459« 
4489 
4531 
4661 
|23# 



4511 
4509 
775 
858 
946 
1033 
1117 
1209 
1270 
1373 
1468 
1557 
1680 
1768 
1839 
1927 
2014 
2105 
2209 
2280 
2386 
2483 
2576 
2693 
2785 
2887 
3008 
3119 
3218 
3342 
3463 
3594 
3699 
3834 
3959 
4089 
4527* 
4459 
4015 
4637f 
4659 
4661# 
4659# 



656# 



4603 
4496 
4533 



757 



4518 
4*^16 
?83* 


4538 




















4538 




















800 


808 


815 


821 


825 


829 


834 


838 


845 


840 


860 


867 


876# 


896 


904 


911 


916 


920 


924 


929 


933 


948 


951 


959 


971 # 


987 


995 


1002 


1006 


1013 


1018 


1022 


1038 


1041 


1047 


1049 


1056 


1067* 


1084 


1092 


1099 


1 lOw 


1108 


1121 


1128 


1133 


1136 


1144 


1147 


1153 


1155 


1160 


1174* 


1194 


1214 


1218 


1222 


M27 


1231 


1237 


1242 


1245 


1253 


1256 


1262 


1282# 


1300 


1308 


1315 


1319 


1326 


1351 


1335 


1339 


1347 


1356 


1386* 


1406 


1414 


1421 


1426 


1430 


1434 


1439 


1443 


1450 


uss 


1472 


1474 


1481 


1492# 


1511 


1519 


1526 


1530 


1537 


1542 




1562 


1565 


1571 


1573 


1580 


1588# 


1602 


1615 


16271 


1659 


1668 


1684 


1688 


1693 


1697 


1704 


1709 


1712 


1722 


1726 


1728 


1759 


1776 


1783 


1787 


1794 


1799 


1803 


1807 


1814 


1821 


1824 


1830 


1851# 


1868 


1876 


1883 


1888 


1892 


1896 


1901 


1905 


1911 


1917 


1930 


1936 


1938 


1944 


1956# 


1975 


1983 


1990 


1 % 


2001 


2006 


2021 


2028 


2031 


2037 


2039 


2046 


2057* 


2077 


2147 


2092 


2097 

2167* 

2269 


2110 


2114 


2120 


2126 


2129 


2136 


2139 
2244 


2145 


2155 


2216 


2221 


2225 


2229 


2234 


2238 


2250 


2253 


2263 


2290# 


2306 


2314 


2321 


2325 


2329 


2333 


2338 


2342 


2348 


2359* 


2393 


2397 


240^ 


2405 


2410 


2414 


2419 


2430* 


2450 


24!>8 


246S 


2489 


2497 


2505 


2511 


ZSZZM 


2538 


2546 


2553 


2557 


2563 


2567 


2582 


2591# 


2611 


2619 


2626 


2633 


2639 


2647 


2654 


2658 


2664 


2701 


2708 


2712 


2716 


2720 


2725 


2729 


2735 


2746* 


2766 


277<. 


2800 


2804 


2810 


2816 


2821 


2830# 


2851 


2859 


2866 


2872 


2876 


2891 


2896 


2904# 


2918 


2931 


2941# 


2974 


2982 


2989 


2993 


2999 


3012 


3020 


3030* 


3045 


3053 


3060 


3064 


3076 


3080 


3085 


3096* 


3126 


3130 


3142 


3146 


3152 


3161* 


3177 


3185 


3192 


3196 


3208 


3226# 


3242 


3250 


3257 


3261 


3267 


3276* 


3307 


3315 


3322 


5326 


3351 


3362* 


3377 


3385 


3392 


3396 


3408 


3412 


3418 


3427* 


3448 


3467 


3479 


3483 


3488 


3496« 


3512 


3520 


3527 


3531 


3537 


3547* 


3601 


3605 


3617 


3621 


3630 


3639# 


3656 


3664 


3671 


3675 


3689 


3708# 


3727 


3735 


3742 


3746 


3760 


3764 


3770 


3780* 


3815 


3823 


3848 


3852 


3860 


3871 # 


3889 


3897 


3904 


3908 


3922 


3926 


3932 


3967 


?974 


3978 


3992 


3996 


4002 


4013* 


4052 


4060 


4067 


4071 



4538 
4538 
4249 



4525 4538 



41 05* 4290 4317 4326* 4327 4332 4335 4361* 4407 




4660 
4508# 



.HAIN. HACYH 30(1046) 
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tXOfF 3 000023 
SXON = 000021 
tXTSTR 0U552 
StGET4» 000001 
WOCATs 

= 017310 



•SASTA* U 
.SX « OOOAOO 
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CROSS REFERENCE TABLE 



4513 

4520 

4302# 

4117# 

4299 

W. 

1457 
4149# 
4576 
552f 



4538 
4538 

4122 

51 0# 
557# 
1564 
4335 
4579 
557 



514# 518# 5284 

577# 612 708 

1711 1823 1919 

4352 4379 4538 



F 8 

USER SYMBOLS 



5£J 0096 



533# 536# 541 542# 544# 546# 5S2 5S3# 

737 738 851 1040 1135 1146 1244 1255 

1929 2030 2128 2138 2252 2262 4144 4146# 

4624# 4666» 4669f 4670# 
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CROSS REFERENCE TABLE 



C 8 
HACRO NAMES 



SEQ 



CATCH 
COW€N 

CPREP 
EHLT 



ENOCOn 
ENDPAS 
ERR 



ERROR 



35 7# 
i# 
360# 
365# 
916 
1026 
1155 
1315 
U39 
1565 
1768 
1892 
2014 
2147 
2321 
2458 
2611 
2729 
2887 
3076 
3250 
3448 
3621 
3830 
3996 
1# 
353# 
366# 
916 
1026 
1155 
1315 
1439 
1565 
1768 
1892 
2014 
2147 
5321 
2458 
2611 
2729 
>887 
^076 
5250 
148 
]1 
38S0 
3996 
388jr 
916 
1026 
1155 
1315 
1439 
1565 



4153 
494« 
2290 
800 
920 
1033 
1194 
1319 
1443 
1573 
1776 
1896 
2021 
2200 
2325 
2465 
2619 
2766 
2891 
3080 
3257 
3456 
3656 
3834 
4052 
494# 
4114 
800 
920 
1033 
1194 
1319 
1443 
1573 
1776 
1896 
2021 
2200 
2325 
2465 
2619 
2766 
2891 
3080 
3257 
3456 
3656 
3834 
4052 
800 
920 
1033 
1194 
1319 
1443 
1573 



4160 

2360 
608 
924 
1041 
1202 
1326 
1450 
1602 
1783 
1901 
2031 
2209 
2329 
2469 
2626 
2774 
2918 
3111 
3261 
3463 
3664 
3848 
4060 



808 
924 
1041 
1202 
1326 
1450 
1602 
1783 
1901 
2031 
2209 
2329 
2469 
2626 
2774 
2918 
3111 
3261 
3463 
3664 
3848 
4060 
808 
924 
1041 
1202 
1326 
1450 
1602 



4167 4174 



2430 
815 
929 
1049 
1209 
1331 
1458 
1659 
1787 
1905 
2039 
2216 
2333 
2483 
2633 
2781 
2974 
3119 
3307 
3467 
3671 
3852 
4067 



815 
929 
1049 
1209 
1331 
1458 
1659 
1787 
1905 
2039 
2216 
2333 
2483 
2633 
2781 
2974 
3119 
3307 
3467 
3671 
3852 
4067 
815 
929 
1049 
1209 
1331 
1458 
1659 



2522 
821 
933 
1084 
1214 
1335 
1468 
1668 
1794 
1911 
2077 
2221 
2338 
2489 
2639 
2785 
2982 
3126 
3315 
3479 
3675 
3889 
4071 



821 
933 
1084 
1214 
1335 
1468 
1668 
1794 
1911 
2077 
2221 
2338 
2489 
2639 
2785 
2982 
3126 
3315 
3479 
3675 
3889 
4071 

933 
1084 
1214 
1335 
1468 
1668 



2592 
825 
940 
1092 
1218 
1339 
1474 
1675 
1799 
1920 
2085 
2225 
2342 
2497 
2647 
2800 
2989 
3130 
3322 
3483 
3689 
3897 
4085 



825 

940 
1092 
1218 
1339 
1474 
1675 
1799 
1920 
2085 
2225 
2342 
2497 
2647 
2800 
2989 
3130 
3322 
3483 
3689 
3897 
4085 
825 
940 
1092 
1218 
1339 
1474 
1675 



2674 
829 
946 
1099 
1222 
1347 
1511 
1680 
1803 
1930 
2092 
2229 
2378 
2505 
2654 
2804 
2993 
3142 
3326 
3512 
3693 
3904 
4089 



829 
946 
1099 
1222 
1347 
1511 
1680 
1803 
1930 
2092 
2229 
2378 
2505 
2654 
2804 
2993 
3142 
3326 
3512 
3693 
3904 
4089 
829 
946 
1099 
1222 
1347 
1511 
1680 



2746 


2830 


2945 












834 


838 


845 


852 


860 


896 


904 


911 


951 


987 


995 


1002 


1006 


1013 


1018 


1022 


'!104 


1108 


1112 


1117 


1121 


1128 


1136 


1U7 


1227 


1231 


1237 


1245 


1256 


1264 


1300 


1308 


1356 


1366 


1406 


1414 


1421 


1426 


1430 


1434 


1519 


1526 


1530 


1537 


1542 


1346 


1550 


1557 


1684 


1688 


1693 


1697 


1704 


1712 


1722 


1728 


1807 


1814 


1824 


1832 


1868 


1876 


1883 


1888 


1938 


1975 


1983 


1990 


1994 


20C1 


2006 


2010 


2097 


2101 


2105 


2110 


2114 


2120 


2129 


2139 


2234 


2238 


2244 


2253 


2263 


2271 


2306 


23U 


2386 


2393 


2397 


2401 


2405 


2410 


24 1* 


2450 


2538 


2546 


2553 


2557 


2563 


25^7 


257<; 


2576 


ox. CO 




cfvl 


07AQ 


071 0 


571 A 


Cf cv 


CI Cj 


2810 


2816 


2851 


2859 


2866 


2m 


2876 


2882 


2999 


3003 


3008 


3012 


3045 


3053 


3060 


3064 


3146 


3177 


3185 


3192 


3196 


3208 


3212 


3242 


3338 


3342 


3377 


3385 


3392 


3396 


3408 


3412 


3520 


3527 


3531 


3586 


3594 


3601 


3605 


3617 


3727 


3735 


Z7i,2 


3746 


3760 


3764 


3815 


3823 


3908 


3922 


3926 


3959 


3967 


3974 


3978 


3992 



834 

951 
1104 
1227 
1356 
1519 
1684 
1807 
1938 
2097 
2234 
2386 
2538 
2658 
2810 
2999 
3146 
3338 
3520 
3727 
3908 

834 
951 
1104 
1227 
1356 
1519 
1684 



838 

987 
1108 
1231 
1366 
1526 
1688 
1814 
1975 
2101 
2238 
2393 
2546 
2693 
2816 
3003 
3177 
3342 
3527 
3735 
3922 

838 
987 
1108 
1231 
1366 
1526 
1688 



845 
995 
1112 
1237 
1406 
1530 
1693 
1824 
1983 
2105 
2244 
2397 
2553 
2701 
2851 
3008 
3185 
3377 
3531 
3742 
3926 

845 
995 
1112 
1237 
1406 
1530 
1693 



852 
1002 
1117 
1245 
1414 
1537 
1697 
1832 
1990 
2110 
2253 
2401 
2557 
2708 
2859 
3012 
3192 
3385 
3586 
3746 
3959 

852 
1002 
1117 
1245 
1414 
1537 
1697 



860 
1006 
1121 
1256 
1421 
1542 
1704 
1868 
1994 
2114 
2263 
2405 
2563 
2712 
2866 
3045 
3196 
3392 
3594 
3760 
3967 

860 
1006 
1121 
1256 
1421 
1542 
1704 



896 
1013 
1128 
1264 
U26 
1546 
1712 
1876 
2001 
2i20 
2271 
2410 
2567 
2716 
2872 
3053 
3208 
3396 
3601 
3764 
3974 

196 
M13 
1i28 
1264 
1426 
1546 
1712 



904 
1018 
1136 
1300 
1430 
1550 
1722 
1883 
2006 
2129 
2306 
2414 
2572 
2720 
2876 
3060 
3212 
3408 
5605 
3815 
3978 

904 
1018 
1156 
1500 
1430 
1550 
1722 



911 
1022 
1147 
1503 
U54 
15!;7 
1728 
1888 
2010 
2159 
2314 
2450 
2S76 
2725 
2882 
5064 
3242 
3412 
5617 
5825 
5992 

911 
1022 
1147 
1508 
1454 
1557 
1728 



.MAIN. HACYll 
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1768 
1892 
2014 
2147 
2321 
2458 
2611 
2729 
2887 
3076 
3250 
3448 
3621 
3850 
3996 
1# 
1# 
14 
364# 
371# 
2449 
3888 
375# 
373* 
379* 
380# 
775# 
183&r 
1944# 
2046# 
2154# 
2280r 
234 7# 
2419# 
2510# 
2582# 
2734# 
2821# 
?896# 
2663# 
2930# 
866# 
301 9# 
3085# 
3151# 
3217# 
3266# 
3350# 
3417# 
3536* 
3629* 
3699# 
95&r 
3769# 
38o0# 
393 



ESCAPE 
GETPRI 
GETSUR 
GONEXr 
IFEQBR 



INT 

L8YTE 

HLOC 

nSCPN 

nSGl 

nsGio 

nSGlOA 

nsGioe 
nsGii 

nSGllA 
nSGllB 

nsGiic 
nsGi4 

nSGUA 
MSG 15 
HSG15A 

nSGl58 

RSG16 
MSG 17 

HSGi' 
«SG?2 

flSG23 
HSCJ4 
HSG25 
«SG26 
HSG?7 
«fG?8 

HSG3 
MSG30 
WSG30A 
flSG51 



50U046) 
>-JAN-82 

1776 
1876 
2021 
2200 
>325 
>465 
^61 9 
1766 
*891 
|080 
J257 
J456 
5656 
3834 
4052 
494# 
494# 
494« 
1627 
799 
2537 
3958 
4274 
842 
3067 
3678 
777 
1841 
1946 
2048 
2157 
2282 
2350 
2421 
2513 
2584 
2737 
2823 
2898 
2666 
2933 
869 
{022 
S087 
n54 
J220 
3269 
3353 
3420 
3539 
3632 
3701 
961 
3772 
3862 
3934 



22-JAN 
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4130 

2167 
895 
2610 



937 
3133 
3749 





CROSS 


REFERENC 


1787 


1794 


1799 


1905 


1911 


1920 


2039 


2077 


2085 


2216 


2221 


2225 


2333 


2338 


2342 


2483 


2489 


2497 


2633 


2639 


2647 


2781 


2785 


2800 


2974 


2982 


2989 


3119 


3126 


3130 


3307 


3315 


3322 


3467 


3479 


3483 




3675 


3689 


3852 


3889 


3897 


4067 


4071 


4085 


2941 


3276 


3547 


986 


1083 


1193 


2692 


2765 


2850 


1030 


1125 


1234 


3199 


3329 


3399 


3837 


3911 


3981 



H 8 

TABLE " NACRO NAMES 



SF3 0098 



1803 
1930 
2092 
2229 
2378 
2505 
2654 
2804 
2993 
3142 
3326 
3512 
3693 
3904 
4089 



3780 
1299 
3044 



1447 
3470 
4074 



1807 
1938 
2097 
2234 
2386 
2538 
2658 
2810 
2999 
3146 
3338 
3520 
3727 
3908 
4154 



1405 
3110 



1554 
3608 



1814 
1975 
2101 
2238 
2393 
2546 
2693 
2816 
3003 
3177 
3342 



3922 
4161 



1510 
3176 



1701 



1824 
1983 
2105 
2244 
2397 
2553 
2701 
2851 
3008 
3185 
3377 
3531 
3742 
3926 
4168 



1767 
3241 



1832 

1990 

2110 

2253 

2401 

2557 

2708 

2859 

3012 

3192 

3385 

3566 

3746 

3959 

4175 



1867 
3376 



1866 
1994 
2114 
2263 
2405 
2563 
2712 
2866 
3045 
3196 
3392 
3594 
3760 
3967 
4267 



1974 
3447 



1876 


1883 


1888 


2001 
2120 
2271 


2006 


2010 


2129 


21 39 


2306 


2514 


2410 


24U 


2450 


256' 


25/2 


2576 


2716 


2720 


2725 


2872 


2876 


2882 


3Uj3 






3208 


3212 
5408 


3242 


3596 


3412 
3617 


3601 


3605 


3764 


3815 


3823 


3974 


3978 


3992 



2076 
3511 



2305 
3655 



2377 
3726 



1811 1908 2018 2117 2241 



3490 
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I 8 
— MACRO NAHES 



SEO 0099 



HSG52 

MSG4 

MbG5 

MSG6 

nSG7 

MSG7A 

nSGTB 

nsG8 

MSG9 
nULT 
NEWTST 



POf' 
PREP 

PUSH 

REPORT 

fJEStTN 



fl25 
R45 



SCOPE 



SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

SPACE 

STARS 



4001# 
1055* 
1160* 
1270# 
l!73# 
1479* 
1580# 
1614f 
I758f 
1« 
1« 
2046 
3218 

^M 

359# 

2171 

1/r 

355* 

2155 
3267 
177 » 

369/r 

2335 
3599 
389# 
2166 
3275 
1/r 
4652/' 
]» 
1# 
1# 
494* 
1* 
873 
1272 
1615 
1954 
2356 
2666 
2931 
3159 
3424 
3701 
4002 



STPREP 


361 # 


syRsu 


1# 


T6RZ 


367* 


TR«TRP 


4652# 


TRUNC 


372# 


TSTCC 


371# 


TSTSP 


362* 








?453 


TTRAP 


382* 



4004 

1058 

1162 

1272 

1375 

1483 

1582 

1617 

1741 
494* 
494f 

2155 

3267 

783 
2904 

3S0* 

494* 

775 
2280 
3351 

832 
2407 
3669 

782 
2289 
3361 

494* 

350* 
494* 
494* 

350* 
874 
1279 
1617 
2046 
2357 
2671 
2933 
3218 
3425 
3705 
4004 
3030 
494* 
819 

1533 
1653 



2583 
3517 
1588 



775 
2280 
3351 

494* 

877 
4021 

494* 

867 
2348 
3418 

927 
2463 
3740 

875 
2358 
3426 



494* 



494* 

959 
1280 
1624 
2048 
2419 
2672 
2938 
3220 
3488 
3706 
4010 
3096 

914 

1790 
2194 
901 
2455 
3591 
2904 



867 

2348 
3418 
4362 
971 

4342 

959 
2419 
3488 

1000 
2569 
3828 
970 
2429 
3495 



539 
961 
1373 
1625 
2054 
2421 
2735 
2939 
3223 
3490 
3770 
4011 
3161 

1016 

1997 
2968 
992 
2543 
3661 



959 
2419 
3488 
4363 
1067 



1056 
2511 
3537 

1115 
2651 
3902 
1066 
2521 
3546 



549 
968 
1375 
1739 
2055 
2427 
2737 
3020 
3224 
3493 
3772 
4097 
3226 

1102 



3301 
1089 
2616 
3732 



1056 
2511 
3537 
4618 
1174 



4348 4579 



1160 
2582 
3630 

1225 
2722 
3972 
1173 
2590 
3638 



551 
969 
1383 
1741 
2155 
2428 
2743 
3022 
3267 
3494 
3777 
4287 
3280 

1212 



3580 
1199 
2698 
3820 



1160 
2582 
3630 
4619 
1282 

4581 

1270 
2664 
3699 

1313 
2779 
4065 
1281 
2673 
3707 



558 
1056 
1384 
1748 
2157 
2511 
2744 
3027 
3269 
3537 
3778 
4338 
3362 



3809 
1305 
2771 
3894 



1270 
2664 


1373 
2735 
3770 


1481 
2821 
3860 


1580 
2896 
3932 


1615 
2931 
400? 


1739 
3020 


1839 
3085 


1944 
3152 


1386 


1492 


1588 


1631 


1752 


1851 


1956 


2057 


4602 
















1373 
2735 
3770 


1481 
2821 
3860 


1580 
2896 
3932 


1615 
2931 
4002 


1739 
3020 


1839 
3085 


1944 
3152 


2046 
3218 


1437 
2884 


1524 
3005 


1691 
3058 


1781 
3124 


1899 
3190 


1988 
3320 


2108 
3390 


2232 
3461 


1385 
2745 
3779 


1491 
2829 
3870 


1587 
2903 
3940 


1626 
2940 
4012 


1750 
3029 
4104 


1850 
3095 


1955 
3160 


2056 
3225 



573 
1058 
1481 
1749 
2164 
2513 
2821 
3028 
3273 
3539 
3860 
4354 
3427 



4046 
1411 
2856 
3964 



612 
1064 
1483 
1839 
2165 
2519 
2823 
3085 
3274 
3544 
3862 
4402 
3496 



615 
1065 
1489 
1842 
2280 
2520 
2827 
3087 
3351 
3545 
3868 
4444 
3551 



1329 1424 1540 1678 



1516 
2979 
4057 



1665 
3050 



775 
1160 
1490 
1648 
2282 
2582 
2828 
3093 
3353 
3630 
3869 
4545 
3639 

1797 



1773 
3116 



780 
1162 
1580 
1849 
2287 
2584 
2896 
3094 
3359 
3632 
3932 
4574 
3708 

1886 



1873 
3182 



781 
1171 
1582 
1944 
2288 
2588 
2898 
3152 
3360 
3636 
3934 
4631 
3784 

2004 



1980 
3247 



867 
1172 
1585 
1946 
2348 
2589 
2901 
3154 
3418 
3637 
3938 

3871 

2095 



2082 
3312 



869 
1270 
1586 
1953 
2350 
2664 
2902 
3158 
3420 
3699 
3939 

3941 

2219 



06 
82 



CVKA1B.P11 
TTY 

TYPeiN 
TYPDEC 
TYPHA« 
TYPNUH 

TYPOCS 
TYPOCT 
TYPTXT 
UBYTE 
VOEST 

SSCMRE 

sscnrn 

SSESCA 
SSNEWT 
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SISET 

SISKIP 

.EQUAT 

.HEADE 

.KT11 

.SETUP 

.SWRHI 

.SACn 

■tAPTB 

.tAPTH 

.SAPTY 

.tASTA 

.tCATC 

.IC«TA 

.S0B20 

.<DB20 

.tDIV 

.tEOP 

.SERRO 

.SERRT 

.$«ULT 

.$POWE 

.SRANO 

.SRDDE 

.SROCC 

.SREAO 

.tR2AZ 

.SSAVE 

.SS620 

.sse^o 

.fSCOP 
.SSIZE 
.SSUPR 
.$TRAP 
.STYPB 
•fTYPO 
.STVPE 
.$TYPO 
.UOCA 



376* 




571 
571 
1 

4652 



1638 
494# 
494« 
494« 
494« 
494# 
494« 
494« 
858 
849 

2250 



494* 
494# 
2155 
5267 

494« 
350# 



350# 

350# 
613* 
350# 
350# 

350* 
350# 



2178 2951 3286 3564 3791 



948 
1038 
2260 



775 
>280 
W51 



384 

527 

537 

547 
4572 

508 
571 



350# 4095 



350* 4336 



35(Mr 4285 
350# 4629 
350» 4442 



1047 
1133 



867 
2348 
3418 



1153 
1144 



959 
2419 
3488 



1262 
1242 



1056 
2511 
3537 



1472 
1253 



1160 
2582 
3630 



J 8 
fUCRO NAMES 
4029 



S£0 0100 



1571 
1455 



1726 
1562 



1830 
1709 



1936 
1821 



2037 
1917 



2145 
1927 



2126 



1270 
2664 
3699 



1373 
2735 
3770 



1481 
2821 
3860 



1580 
2896 
3932 



1615 
2931 
4002 



1739 
3020 



1839 
3085 



1944 
3152 
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.1170 1# 
. ABS. 017310 000 
ERRORS DETECTED: 0 

CVICA18.BIN-CVKAIB.LST/CRF/S0L/NL:T0C=SrS«AC.S«L.CVKAI8.Pll 
RUN-TIWE: \l 20 1 SECONDS 
RUN-TIWE RATIO: 104/40=2.5 
CORE USED: 41K (82 PAGES) 
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MCRO NAMES 



SEQ 0101 



